Ответы на вопрос:
Var ar: array[1..30] of integer; i,max: integer; begin; randomize; writeln('array'); for i: =1 to 30 do begin; ar[i]: =random(1,100); write(ar[i]: 4); end; for i: =1 to 30 do if max< ar[i] then max: =ar[i]; writeln; writeln('result: ',max); end.
Популярно: Информатика
-
reginа11122233326.04.2021 00:37
-
алинагг23.03.2023 12:12
-
АзизОсманов21.04.2023 06:29
-
YTMrBreadYT04.01.2020 03:45
-
qq50311.04.2023 09:39
-
raxmatullin17415.09.2022 19:27
-
Анита100210.10.2021 16:43
-
godd127.03.2021 09:56
-
5117912.01.2021 02:06
-
Sasno22866622.08.2022 18:55