Написать программу. выбирающую случайным образом 1000 числ. Найти среди них первый...

Question

Написать программу. выбирающую случайным образом 1000 числ. Найти среди них первый максимальный элемент

Answer 1

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.

Comments

в следующий раз язык указывай

---

спасибо

---

в паскале,конечно