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

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

спасибо

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

program nums;var num:array[1..1000] of integer;var i,maxnum: integer;beginRandomize;for i:=1 to 1000 do num[i] := random(1000000);for i:=1 to 1000 dobeginif num[i] > maxnum then maxnum:=num[i];end;Writeln('самое большое число ',maxnum);end.