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

Ответы:

Gosha Konkov

13-08-2014 15:42

Написал вариант для несильных в программировании.program Nom;var a,min,max,sum:integer;begina:=1;while a<>0 dobeginReadln (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.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Злата Москаленко

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите пожалуйста с Паскалем, срочно! Последовательность целых чисел вводится с клавиатуры до нуля. Найдите среди них максимум и минимум и выведете на экран их сумму.» от пользователя Злата Москаленко в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!