Составить программу,формирующую произвольный массив(с функции random) из 40 элементов. все элементы,большие 50,заменить на -6

296

369

Посмотреть ответы 2

Ответы на вопрос:

7777kiti

Информатика

4,6(66 оценок)

Const sz = 40; var a: array [1..sz] of integer; n: integer; i: integer; k: integer; begin k: =50; n : = 40; for i: =1 to n do a[i] : = random(100); writeln('элементы массива: '); for i: =1 to n do write(a[i],' '); writeln(); begin for i: =1 to n do begin if a[i] > n then a[i] : = -6 end; writeln('заменяем элементы > 50 на -6: '); for i: =1 to n do write(a[i],' '); writeln(); end; end.