Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение максимального (наибольшего) из введённых чисел.Используйте оператор repeat.
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение максимального (наибольшего) из введённых чисел.Используйте оператор repeat.
|
1 2 3 4 5 6 7 8 9 10 11 12 |
program n_2; var a,b,max:integer; begin max:=0; repeat write('Введите число»'); readln(a); if (a>max)and (a>0) then max:=a; until a=0; writeln ('Наибольшее число из введенных»',max); end. |
©Решение предоставил Дрюк Иван
Будем благодарны, если вы поделитесь данной записью со своими друзьями в социальных сетях, оставите отзыв и посмотрите другие материалы на нашем сайте.