Вопрос по информатике:
Помогите пожалуйста с Паскалем, срочно!
Последовательность целых чисел вводится с клавиатуры до нуля. Найдите среди них максимум и минимум и выведете на экран их сумму.
- 12.11.2017 18:31
- Информатика
- remove_red_eye 13678
- thumb_up 35
Ответы и объяснения 1
Написал вариант для несильных в программировании.
program Nom;
var a,min,max,sum:integer;
begin
a:=1;
while a0 do
begin
Readln (a);
if max = 0 then max:=a;
if min = 0 then min:=a;
if (a>max)and(a0) then max:=a;
if (a
sum:=min+max;
writeln (sum);
end.
- 13.11.2017 13:05
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.