Дан массив из 40 целых чисел все элементы меньше 10 заменить ** 2 и вывести полученный...

Question

Дан массив из 40 целых чисел все элементы меньше 10 заменить на 2 и вывести полученный массив на экран

Answer 1

Const n=40; 
var a:array[1..n] of integer;
i:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(31);
 write(a[i]:4);
 end;
writeln;
writeln('Изменённый массив A:');
for i:=1 to n do
 if a[i]<10 then a[i]:=2;<br>for i:=1 to n do write(a[i]:4);
writeln;
end.

Пример (для n=10):
Массив A:
5 30 21 30 3 24 7 22 2 17
Изменённый массив A:
2 30 21 30 2 24 2 22 2 17