Ответы на вопрос:
Const n = 10; var i, k, max: integer; a: array[1..n] of integer; begin writeln('исходные данные'); randomize; for i : = 1 to n do begin k : = random(100) - 50; a[i] : = k; write(k: 4) end; writeln; max : = -32768; //меньше не бывает for i : = 1 to n do if max < a[i] then max : = a[i]; writeln('максимальное из чисел равно ', max) end. тестовый пример: исходные данные 39 -42 -3 3 -37 -32 25 43 24 -17 максимальное из чисел равно 43
Популярно: Информатика
-
Valentinka1448510.08.2020 08:46
-
polinaguskova23.06.2020 22:39
-
margaritamaurses15.04.2023 11:12
-
асиям123925.08.2022 17:07
-
вёдра09.06.2021 09:07
-
opalinskayavik28.08.2021 15:33
-
Edam17.04.2020 20:08
-
10200931.12.2022 00:29
-
Aleshchksuni14.10.2022 05:55
-
русел22203327.12.2020 05:08