Написать программу,которая определяет максимальное число из введенной последовательности положительных число завершения ввода 0

mstatyankasor mstatyankasor    2   24.06.2019 19:20    3

Ответы
J980 J980  20.07.2020 08:51
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика

Популярные вопросы