var A : array [1..20] of integer;
C, i : integer;
begin
randomize;
Writeln('Введите C');
Readln(C);
for i := 1 to 20 do
A[i] := random(-45, 28);
writeln('Массив:');
for i := 1 to 20 do
write(a[i], ' ');
Writeln();
for i := 1 to 20 do
if a[i] > C then
a[i] := C;
writeln('Получившийся массив: ');
for i := 1 to 20 do
write(a[i], ' ');
end.
Объяснение:
