Ответы на вопрос:
uses crt; var x,min,max: integer; beginclrscr; min: =0; max: =0; writeln('write x = '); readln(x); min: =x; max: =x; while x< > 0 dobeginreadln(x); if ((min > x) and (x< > 0)) then min: =x; if ((max < x) and (x< > 0)) then max: =x; end; writeln('max = ',max); writeln('min = ',min); readlnend.
Популярно: Информатика
-
ArtMaster45507.07.2022 10:02
-
Kramar117.03.2020 00:52
-
seadetibrahim13.01.2020 14:05
-
5862478948507.04.2021 23:52
-
tolkov0521.02.2021 10:21
-
Orange71717.11.2020 23:25
-
Anya258717.10.2020 22:35
-
Wenros12.03.2020 20:13
-
juwal24.08.2021 16:16
-
андрей209609.02.2023 14:36