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

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

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

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

Способов решения задачи много. Например, можно так:procedure max(x,y:integer; var z:integer);beginif x>y then z:=x else z:=y;end;var a,b,m,s,i:integer;begins:=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=1b=2a=3b=4a=5b=6a=7b=8Smax=20