Question

Дан двухмерный массив 5на5, числа генерируются от -10 до 10. Нужно найти все четные числа, разделить их на 2 и вывести. Прошу пожалуйста. В паскале

Answer 1

Ответ:

const n=10;

var a: array[1..n] of integer;

i:integer;

begin

for i:=1 to n do

begin

a[i]:=random(251);

write(a[i],' ');

end;

writeln;

for i:=1 to n do

begin

if odd(a[i]) then a[i]:=2 else a[i]:=1;

write(a[i],' ');

end

end.