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

Способов решения задачи много. Например, можно так: 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