Question

Заменить все элементы массива равные 5 на 1000.Пожалуйста В Pascal ABC

Answer 1

const n=10;

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

i: integer;

begin

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

for i:=1 to n do

begin

a[i]:=random(9)+1;

write (a[i]:4,' ')

end;

writeln;

write('Преобразованый массив: ');

for i:=1 to n do

begin

if (a[i] = 5) then a[i]:=1000;

write (a[i]:4,' ')

end

end.