Массив от 1 до 10 заполнить случайными числами и найти сумму максимум и минимум 1 до 15

282

443

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

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

werwedsgfdg

Информатика

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

Var i,z,min,max: integer; a: array [1..10] of integer; begin randomize; z: =0; min: =16; max: =-1; for i: =1 to 10 do begin a[i]: =random(15)+1; z: =z+a[i]; if a[i]> max then max: =a[i]; if a[i]< min then min: =a[i]; end; for i: =1 to 10 do write(a[i], ' '); writeln(); writeln('минимальное значение ',min,' максимальное значение ',max,' сумма ',z); end.