Ответ учителя по предмету Информатика
Program My_Prog_01;var n,max,min:integer;begin read(n); max:=n; min:=n; repeat read(n); if (n<min) and (n<>0) then min:= n; if (n>max) and (n<>0) then max:= n; until (n = 0); writeln(‘Макс. число = ‘, max); writeln(‘Мин. число = ‘, min);end.
Похожие вопросы от пользователей