KNUTD
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот условия с задачами,они решены...но нужно решить их через randomize..Понимаю,что это просто,я только начал и еще не очень в этом разобрался.
в двухмерном массиве вычислить сумму елементов,произведение индексов столбца и строки которых нечетное число
var a: array[1..1000, 1..1000] of integer;
n, m, i, ans, j: integer;
begin
writeln('Vvedite chiclo strochek i stolcov');
read(n, m);
ans := 0;
writeln('Vvodite elementi massiva');
for i := 1 to n do
for j := 1 to m do begin
read(a[i, j]);
if (i * j) mod 2 = 1 then ans := ans + a[i, j];
end;
writeln(ans);
readln;
readln
end.
в одномерном массиве найти наименьший элемент и заменить им все нулевые элементы
var a: array[1..1000] of integer;
n, min, i: integer;
begin
writeln('Vvedite kol-vo elementov massiva');
readln(n);
writeln('Vvodite elementi');
for i := 1 to n do
read(a[i]);
min := a[1];
for i := 1 to n do
if (a[i] < min) and (a[i] <> 0) then min := a[i];
for i := 1 to n do
if a[i] = 0 then a[i] := min;
for i := 1 to n do
write(a[i], ' ');
readln;
readln;
end.
|
Всего записей: 9 | Зарегистр. 28-04-2010 | Отправлено: 23:58 28-04-2010 | Исправлено: KNUTD, 00:00 29-04-2010 |
|
