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; for i:=1 to n do write(a[i]:4); writeln; end.
Answers & Comments
Verified answer
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;
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