Предмет: Информатика,
автор: Lera1339
написать программу. выбирающую случайным образом 1000 числ. Найти среди них первый максимальный элемент
Ответы
Автор ответа:
0
program nums;
var num:array[1..1000] of integer;
var i,maxnum: integer;
begin
Randomize;
for i:=1 to 1000 do num[i] := random(1000000);
for i:=1 to 1000 do
begin
if num[i] > maxnum then maxnum:=num[i];
end;
Writeln('самое большое число ',maxnum);
end.
var num:array[1..1000] of integer;
var i,maxnum: integer;
begin
Randomize;
for i:=1 to 1000 do num[i] := random(1000000);
for i:=1 to 1000 do
begin
if num[i] > maxnum then maxnum:=num[i];
end;
Writeln('самое большое число ',maxnum);
end.
Автор ответа:
0
в следующий раз язык указывай
Автор ответа:
0
спасибо
Автор ответа:
0
в паскале,конечно
Похожие вопросы
Предмет: Оʻzbek tili,
автор: madinafathullaeva88
Предмет: Литература,
автор: aalexaaivaa
Предмет: Математика,
автор: kamilla200966
Предмет: История,
автор: cergeiahpashev
Предмет: Алгебра,
автор: sheiktyan