Написать программу, запрашивающую с клавиатуры целые числа и определяю-щую максимальное и минимальное из них. окончание ввода – число 0. протестиро-вать программу для последовательности: -3 5 6 -11 24 -1 0. паскаль
293
380
Ответы на вопрос:
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.
Популярно: Информатика
-
DreamEvilDead21.10.2022 20:38
-
anastasiyaaldo07.06.2020 10:09
-
0898765432101.12.2022 05:25
-
MiSTiK33808.04.2022 11:35
-
помогитеяглупая26.04.2023 07:56
-
nugumanovsalavp092yo01.09.2022 21:56
-
50978886604.02.2022 12:10
-
Малышкалюбитспать25.05.2022 20:22
-
nargizcavid07.04.2023 21:37
-
CrasH199002.04.2023 09:27