Программу,которая выводит на экран в строчку 8 случайных - вопрос №8151009629185 от AlinaFlowers 03.08.2021 21:25

Question

Информатика: Программу,которая выводит на экран в строчку 8 случайных чисел из промежутка от 15 до 100 и находит максимальное из них.(с uses crt, и попроще

AlinaFlowers · Answer

uses crt;

var i,m,a:integer;

begin

clrscr;

m:=15;

for i:= 1 to 8 do

begin

a:=Random(86)+15;

if a>m then m:=a;

write (a,' ')

end;

writeln;

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

readln

end.