Предмет:
ИнформатикаАвтор:
elijah621uses 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.
Автор:
mini mez3nrДобавить свой ответ
Предмет:
Русский языкАвтор:
cameronedwardsОтветов:
Смотреть
Предмет:
АлгебраАвтор:
little bearmnxuОтветов:
Смотреть
Предмет:
ФизикаАвтор:
rosendorpj8Ответов:
Смотреть