написать программу,которая определяет максимальное число из введенной последовательности положительных число завершения ввода 0
Ответы
Ответ дал:
2
var a, max: integer;
begin
read(a);
max := -99999;
while(a <> 0) do
begin
if(a > max) then max := a;
read(a);
end;
writeln(max);
end.
begin
read(a);
max := -99999;
while(a <> 0) do
begin
if(a > max) then max := a;
read(a);
end;
writeln(max);
end.
Вас заинтересует
11 месяцев назад
1 год назад
6 лет назад
7 лет назад