Напишите программу которая в последовательности целых чисел выбранных случайном образом...

Question

Напишите программу которая в последовательности целых чисел выбранных случайном образом из диапазона от 15 до 69 определяет разность максимального и минимального чисел

Comments

Я сейчас решу, только не уходите.:) Вам на pascal?

---

Массив использовать или без массива нужно?

---

с массивом

---

Массив это зло:D

---

ЭТО СЛОЖНО

---

капец просто

---

array, давай, раз просто) Просто у меня репетитор больше учил, чем информатик, ибо я огэ сдал на 5:D

Answer 1

Программа без массива:
const n=10;
var a,i,max,min:integer;
begin
Randomize;
min:=69; max:=15;
for i:=1 to n do
 begin
 a:=random(55)+15;
 write(a,' ');
 if a>max then max:=a;
 if a end;
writeln;
writeln('max-min = ',max,'-',min,' = ',max-min);
end.

Пример:
21 16 40 57 41 63 48 50 54 45 
max-min = 63-16 = 47

Программа с массивом:
const n=10;
var a:array[1..n] of integer;
i,max,min:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(55)+15;
 write(a[i],' ');
 end;
writeln;
min:=a[1]; max:=a[1];
for i:=2 to n do
 begin
 if a[i]>max then max:=a[i];
 if a[i] end;
writeln('max-min = ',max,'-',min,' = ',max-min);
end.