Составить программу для решения следующей : дан массив целых чисел, заполненный случайными числами в диапазоне [-100, 100]. замените все отрицательные элементы максимальным. выведите на экран исходный и измененный массивы.

116

136

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

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

rimolol

Информатика

4,5(43 оценок)

Var i,max: integer; ar: array[0..200] of integer; begin randomize; max: =0; for i: =1 to 200 do begin ar[i]: =random(200+1)-100; if (ar[i] > max) then max: =ar[i]; if (i mod 20=0) then writeln(ar[i]) else write(ar[i],' '); end; writeln(); for i: =1 to 200 do begin if (ar[i] < 0) then ar[i]: =max; if (i mod 20=0) then writeln(ar[i]) else write(ar[i],' '); end; end.