ТурбоПаскаль. С помощью процедуры и без массивов решить задачу: найти сумму максимумов из 8 чисел (попарно). например, введено 1 2 3 4 5 6 7 8, результат 20 (max(1,2)=2, max(3,4)=4 и т.д.)
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Способов решения задачи много. Например, можно так: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