Составьте программу,которая заполняет массив a[1..10] случайными числами в диапазоне от 0 до 20, затем первый элемент меняет местами с максимальным элементом.выведите на экран исходный и полученный массивы.

221

431

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

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

nastenka19832

Информатика

4,7(79 оценок)

Var mass: array[1..10] of integer; g,s,i,max: integer; begin randomize; writeln('первоначальный массив'); for i: =1 to 10 do begin s: =s+1; mass[s]: =random(21); if max< mass[s] then max: =mass[s]; writeln(mass[s]); end; writeln('конечный массив'); g: =mass[1]; for i: =1 to 10 do begin if mass[i]=max then mass[i]: =g; mass[1]: =max; writeln(mass[i]); end; end.