Ответы на вопрос:
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.
Популярно: Информатика
-
zinkovich9202.01.2023 23:25
-
ibatullinazuhra12.12.2020 12:08
-
CERN07.07.2021 15:13
-
illaria270328.08.2021 00:44
-
диана229427.11.2020 21:12
-
Спартак210217.11.2022 19:38
-
zemkaaa110.07.2022 07:33
-
isaevaa2424.05.2020 11:17
-
Maxys36502.05.2020 03:25
-
новичок61802.09.2022 08:05