Предмет: Информатика,
автор: lobovyxa252
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и определение максимального (наибольшего) из введённых чисел
Ответы
Автор ответа:
1
Предполагается, что будет введено минимум одно значение.
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.
Интересные вопросы
Предмет: Русский язык,
автор: Guldey2006
Предмет: Математика,
автор: незнайка113
Предмет: Обществознание,
автор: nika2016kim
Предмет: Русский язык,
автор: olgaapalkova