(Код Паскаль АВС NET) Ввод исходных данных и их контрольный вывод оформить как процедуры, а обработку – в виде функции или процедуры. Привести как минимум два тестирующих примера.Найти максимальное значение средних геометрических четных элементов массивов А,В и С.
код программы есть ,но его нужно оформить как процедуры
program lab6;
uses crt;
const
n=5;
type mas=array [1..n] of integer;
var
a,b,c: mas;
i,k:integer;
max: real;
sr_g: array [1..3] of real;
begin
clrscr;
for i:=1 to n do begin
write('A[',i,'] = ');
readln(a);
end;
for i:=1 to n do begin
write('B[',i,'] = ');
readln(b);
end;
for i:=1 to n do begin
write('C[',i,'] = ');
readln(c);
end;
sr_g[1]:=1;
k:=0;
for i:=1 to n do begin
if (a mod 2)=0 then begin
sr_g[1]:=sr_g[1]*a;
k:=k+1;
end;
end;
sr_g[1]:=exp(ln(sr_g[1])/k);
sr_g[2]:=1;
k:=0;
for i:=1 to n do begin
if (b mod 2)=0 then begin
sr_g[2]:=sr_g[2]*b;
k:=k+1;
end;
end;
sr_g[2]:=exp(ln(sr_g[2])/k);
sr_g[3]:=1;
k:=0;
for i:=1 to n do begin
if (c mod 2)=0 then begin
sr_g[3]:=sr_g[3]*c;
k:=k+1;
end;
end;
sr_g[3]:=exp(ln(sr_g[3])/k);
max:=sr_g[1];
for i:=2 to 3 do
if sr_g>max then
max:=sr_g[i];
writeln(max);
end.