Question

Составьте программу,которая выводит на экран в строчку 8 случайных чисел из промежутка от 15 до 100 и находит максимальное из них. (желательно с помощью uses crt , random)Паскаль
ДАЮ 30 БАЛЛОВ!!!!

Answer 1

Program lyalyalya;

var a:array[1..8] of integer;i,min,max:integer;

begin

randomize;

for i:=1 to 8 do a[i]:=random(85)+15;min:=maxint;max:=-maxint;

for i:=1 to 8 do begin write(a[i],' ');

if a[i]>max then max:=a[i];end;

writeln('Максимально число: ',max);

readln;

end.