Ответы на вопрос:
Var arr: array[1..10] of integer; i, max: integer; begin randomize; max : = 0; for i: =1 to 10 do begin arr[i] : = random(100); if arr[i] > max then begin max : = arr[i]; end; end; writeln('max element is: '); writeln(max); end.
Популярно: Информатика
-
elenagorodan14.09.2022 08:36
-
Sevinch9401.10.2020 23:49
-
Marina2211103.06.2021 10:45
-
Lisaaaaakot10.11.2020 03:05
-
tanecka213.02.2020 07:46
-
ivanova606007.01.2022 03:06
-
nazar22109.08.2020 14:13
-
sluvka12312331.01.2020 10:51
-
pupsik10101013.10.2022 20:27
-
Cronus1Oleg24.06.2020 22:20