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

Question

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

Comments

так, а 1 и 15 это что?

---

хэй?

---

может случайными числами от 1 до 15?

---

даа,случайными числами от 1 до 15

---

ясн. Ща всё будет

---

оо,спасибо большое))

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.

Comments

спасибо большое)

---

незачто)