Question

Одномерный массив размера 22 задан целыми случайными числами из интервала [-23; 13]. Заменить все чётные элементы массива на 2. Распечатать исходный и получившийся массивы. ​

Answer 1

const n=22;

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

i: integer;

begin

write('исходный массив: ');

for i:=1 to n do begin

a[i]:=random(37)-23;

write(a[i],' ');

end;

writeln;

write('полученный массив: ');

for i:=1 to n do if abs(a[i]) mod 2=0 then a[i]:=2;

for i:=1 to n do write(a[i],' ');

end.