Ответы на вопрос:
Program sample; const n = 4; var i, maxvalue, inpvalue: integer; begin maxvalue : = low(maxvalue); for i : = 1 to n do begin write('введите число: '); readln(inpvalue); if maxvalue < inpvalue then maxvalue : = inpvalue; end; writeln('максимальное из ', n, ' чисел равно ', maxvalue); end.
Популярно: Информатика
-
nastyaorelrus07.12.2021 00:34
-
Артём200670608.03.2021 15:29
-
irina03027005.04.2023 23:42
-
ntkytik17.02.2020 02:08
-
vzlomhanter23018.01.2020 19:52
-
19856517.04.2023 16:07
-
yakovlev5931.05.2023 04:31
-
linik218.09.2022 03:17
-
izibaevsergei09.08.2021 07:14
-
Даддсаап21.02.2020 18:08