Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и определение максимального (наибольшего) из введённых чисел
vera22102007
3
19.05.2021 16:27
0 
Популярные вопросы
- Подчеркнуть буквы которые обозначают твердые согласные ОСЕНЬ,КАЛИНА,РЯБИНА,ТОЧКА...
1 - 7 Запиши выражения по задачам. а) На складе 40 000 тетрадей, из них 8 000...
2 - Для каждого элементарного эволюционного фактора укажите его характеристику...
2 - составить программу на питоне...
2 - Причини економічного піднесення Німеччини...
2 - По третьему закону Ньютона, Коробка и трактор действуют друг на друга с одинаковой...
1 - Установіть відповідність між назвами грецьких міст Північного Причорномор...
1 - Есть те, кто знает правильный ответThere are those who know the correct answer...
1 - Найдите алгоритм ) Я не шарю...
1 - B 6. В трапеции ABCD SAABC = 80 см2. Найдите SABCD. А) 90 см В) 80 см D) 75...
2
Предполагается, что будет введено минимум одно значение.
var
max,a : integer;
begin
readln(a);
max := a;
repeat
readln(a);
if (a > max) and (a <> 0) then
max := a;
until a = 0;
writeln(max);
readln;
end.