Массив от 1 до 10 заполнить случайными числами и найти сумму максимум и минимум 1 до 15
Массив от 1 до 10 заполнить случайными числами и найти сумму максимум и минимум 1 до 15
Гость
Ответ(ы) на вопрос:
Гость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]
Не нашли ответ?
Похожие вопросы