Pascal. Составить программу поиска большего из четырёх чисел с использованием подпрограммы поиска большего из двух, срочно
Answers & Comments
user2005
Var naibolwee:int64; i:integer; A:array [1..4] of int64; function max(a,b:int64):int64; begin if a>b then max:=a else max:=b; end; begin for i:=1 to 4 do read(A[i]); for i:=1 to 3 do naibolwee:=max(A[i],A[i+1]); writeln(naibolwee); end.
Answers & Comments
i:integer;
A:array [1..4] of int64;
function max(a,b:int64):int64;
begin
if a>b then max:=a else max:=b;
end;
begin
for i:=1 to 4 do
read(A[i]);
for i:=1 to 3 do
naibolwee:=max(A[i],A[i+1]);
writeln(naibolwee);
end.