Программу,которая выводит на экран в строчку - вопрос №96289608 от Albina0981 24.11.2022 14:00

Question

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

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