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

Question

Информатика

Олегыч

22 ноября, 16:43

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

+2

Ответы (1)

Знаете ответ на вопрос?

Вавуся · Answer 1

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]
end;

for i:=1 to 10 do Write (a[i], ' ') ;

Writeln () ;

Writeln ('Минимальное значение ', min,' Максимальное значение ', max,' Сумма ', z) ;

End.