Question

Одномерный массив размера 22 задан целыми случайными числами из интервала [-23; 13]. Заменить все чётные элементы массива на 2. Распечатать исходный и получившийся массивы. ​
БЕЗ CONST И N-ОК, ТОЛЬКО С ЧИСЛАМИ!!!!!!!​

Answer 1

program d;

var i:integer;

a :array[1..22] of integer;

begin

for i:=1 to 22 do begin

a[i]:= Random(27)-23;

write(a[i]:2);

end;

writeln;

writeln('массив после изменений');

for i:=1 to 22 do begin

if a[i] mod 2 = 0 then a[i]:=2;

write(a[i]:2);

end;

end.

Answer 2

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

i: integer;

begin

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

for i:=1 to 22 do begin

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

write(a[i],' ');

end;

writeln;

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

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

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

end.