ТурбоПаскаль. С помощью процедуры и без массивов решить задачу: найти сумму максимумов из...

Question

ТурбоПаскаль. С помощью процедуры и без массивов решить задачу: найти сумму максимумов из 8 чисел (попарно). например, введено 1 2 3 4 5 6 7 8, результат 20 (max(1,2)=2, max(3,4)=4 и т.д.)

Answer 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

Comments

Только в ТурбоПаскаль надо начинать программу с uses Crt, аппосле

---

последнего вывода ставить Readkey

---

спасибо огромное)