Программу,которая выводит на экран в строчку 8 случайных - вопрос №89629360 от omararu2006 29.12.2022 07:20

Question

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

omararu2006 · 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.