?>
1) написать программу, которая определяет номера строк двумерного массива a[1..6, 1..4], в которых содержится хотя бы один нулевой элемент. 2) 5. составить программу заполнения массива b[1..10] таким образом: элементы с нечетными индексами равны числу 2, а элементы с четными индексами равны числу 5.
Ответы
1)
var a: array [1..6,1..4] of integer;
i,j: integer;
begin
randomize;
for i : = 1 to 6 do begin
for j : = 1 to 4 do begin
a[i,j] : = random(20) - 10;
end;
end;
for i : = 1 to 6 do begin
for j : = 1 to 4 do begin
if (a[i,j] == 0) then begin
writeln("0 v stroke ", i);
continue;
end;
end;
end;
end.
2)
var b: array [1..10] of integer;
i: integer;
begin
for i : = 1 to 10 do begin
if (i mod 2 == 0) then b[i] : = 5;
else b[i] : = 2;
end;
for i : = 1 to 10 do begin
writeln(b[i]);
end;
end.