Question

ПОЖАЛУЙСТА ПОМОГИТЕ 50 БАЛЛОВ
Программирование 9 класс Массивы
Программа через паскаль

Answer 1

Ответ:

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.

Объяснение: