Спаскалем, ! последовательность целых чисел вводится с клавиатуры до нуля. найдите среди них максимум и минимум и выведете на экран их сумму.

228

344

Посмотреть ответы 2

Ответы на вопрос:

golicinskaya

Информатика

4,5(47 оценок)

Написал вариант для несильных в программировании. 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 (a< min)and(a< > 0) then min: =a; end; sum: =min+max; writeln (sum); end.