Найти наибольшие элементы и их порядковые номера массивов Х (N) и Y (М)
program massiveproc;
var
N,M,i:integer;
max1,max2:real;
pn1,pn2:integer;
Type
mass=array[1..100] of real;
var x,y:mass;
Procedure F(a:mass; kol:integer; var max:real; var pn:integer);
begin
max:=a[1]; pn:=1;
for i:=2 to kol do
if max<a[i] then
begin
max:=a[i];
pn:=i;
end;
end;
begin
writeln('vvod N');
readln(N);
for i:=1 to N do
readln(x[i]);
writeln('vvod M');
readln(M);
for i:=1 to M do
readln(y[i]);
F(x,N,max1,pn1);
F(y,M,max2,pn2);
writeln('max1=',max1:5:8);
writeln('pn1=',pn1);
writeln('max2=',max2:5:8);
writeln('pn2=',pn2);
readln;
end.
program massivefunc;
var
N,M,i:integer;
max1,max2,max:real;
Type
mass=array[1..100] of real;
var x,y:mass;
Function F(a:mass; kol:integer):real;
begin
max:=a[1];
for i:=2 to kol do
if max<a[i] then
begin
max:=a[i];
end;
F:=max;
end;
begin
writeln('vvod N');
readln(N);
for i:=1 to N do
readln(x[i]);
writeln('vvod M');
readln(M);
for i:=1 to M do
readln(y[i]);
max1:=F(x,N);
max2:=F(y,M);
writeln('max1=',max1:5:8);
writeln('max2=',max2:5:8);
readln;
end.