Вопрос по информатике:
ТурбоПаскаль. С помощью процедуры и без массивов решить задачу: найти сумму максимумов из 8 чисел (попарно). например, введено 1 2 3 4 5 6 7 8, результат 20 (max(1,2)=2, max(3,4)=4 и т.д.)
- 02.06.2018 04:21
- Информатика
- remove_red_eye 2694
- thumb_up 31
Ответы и объяснения 1
Способов решения задачи много. Например, можно так:
procedure max(x,y:integer; var z:integer);
begin
if x>y then z:=x else z:=y;
end;
var a,b,m,s,i:integer;
begin
s:=0;
for i:=1 to 4 do begin
write('a='); readln(a);
write('b=');readln(b);
max(a,b,m);
s:=s+m;
end;
writeln('Smax=',s);
end.
Пример:
a=1
b=2
a=3
b=4
a=5
b=6
a=7
b=8
Smax=20
- 03.06.2018 20:33
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.