Помогите пожалуйста с Паскалем, срочно! Последовательность целых чисел вводится с клавиатуры до нуля. Найдите среди них максимум и минимум и выведете на экран их сумму.
Помогите пожалуйста с Паскалем, срочно!
Последовательность целых чисел вводится с клавиатуры до нуля. Найдите среди них максимум и минимум и выведете на экран их сумму.
Гость
Ответ(ы) на вопрос:
ГостьНаписал вариант для несильных в программировании.
program Nom;
var a,min,max,sum:integer;
begin
a:=1;
while a<>0 do
begin
Readln (a);
if max = 0 then max:=a;
if min = 0 then min:=a;
if (a>max)and(a<>0) then max:=a;
if (a0) then min:=a;
end;
sum:=min+max;
writeln (sum);
end.
Не нашли ответ?
Похожие вопросы