Процедуры одномерный массив.

uses crt;
const nmax=20;
type matr=array[1..nmax] of real;
procedure VvodM(var a:matr;var n:byte;name:string);
var i:byte;
begin
write('размерность массив ',name,' =');
readln(n);
writeln('массив ',name,':');
for i:=1 to n do
begin
write('el[',i,']=');
readln(a[i]);
end;
end;
procedure VivodM(var a:matr;n:byte;name:string);
var i:byte;
begin
writeln('вывод массива ',name,' :');
for i:=1 to n do
begin
write(a[i]:5:0,' ');
end;
end;
function SrArOtr(a:matr;n:byte):real;
var i:byte;
s,sr:real;
k:integer;
begin
s:=0;
sr:=0;
k:=0;
for i:=1 to n do
begin
if a[i]<0 then
begin
s:=s+a[i]; k:=k+1;
end;
end;
if k<>0 then
sr:=s/k;
SrArOtr:=sr;
end;
procedure ZamenaChet(a:matr;n:byte;chislo:real;name:string);
var i:byte;
begin
if chislo<0 then
begin
for i:=1 to n do
if i mod 2=0 then
a[i]:=chislo;
end;
writeln('вывод массива после замены');
VivodM(a,n,name);
writeln;
end;
var x1,x2,x3:matr;
n:byte;
begin
clrscr;
writeln;
VvodM(x1,n,'X1');
writeln;
VvodM(x2,n,'X2');
writeln;
VvodM(x3,n,'X3');
writeln;
if SrArOtr(x1,n)<0 then
begin
writeln('Среднее отрицательное элементов массива X1=', SrArOtr(x1,n));
ZamenaChet(x1,n,SrArOtr(x1,n),'X1');
end
else
begin
writeln('нет отрицательных элементов в массиве X1');
VivodM(x1,n,'X1');
writeln;
end;
 
if SrArOtr(x2,n)<0 then
begin
writeln('Среднее отрицательное элементов массива X2=', SrArOtr(x2,n));
ZamenaChet(x2,n,SrArOtr(x2,n),'X2');
end
else
begin
writeln('нет отрицательных элементов в массиве X2');
VivodM(x2,n,'X2');
writeln;
end;
if SrArOtr(x3,n)<0 then
begin
writeln('Среднее отрицательное элементов массива X3=', SrArOtr(x3,n));
ZamenaChet(x3,n,SrArOtr(x3,n),'X3');
end
else
begin
writeln('нет отрицательных элементов в массиве X3');
VivodM(x3,n,'X3');
writeln;
end;
end.

program Dekio;
const
n=20;
type
Tarr = array[1..n] of integer;
var
a, b, c: Tarr;
ch: char;
 
 
procedure cin(var arr: Tarr);
var
i: integer;
begin
for i:=1 to n do
//readln(arr[i]);
arr[i]:=random(30)-10;
end;
 
procedure cout(arr: Tarr);
var
i: integer;
begin
for i:=1 to n do
write(arr[i]:5);
writeln;
end;
 
function sfind(arr: Tarr): integer;
var
i, cnt, sum: integer;
begin
cnt:=0; sum:=0;
for i:=1 to n do
if arr[i]<0 then
begin
inc(cnt);
inc(sum,arr[i]);
end;
if cnt<>0 then
sfind:=sum div cnt
else
sfind:=0;
end;
 
procedure change(var arr:Tarr; num: integer);
var
i: integer;
begin
for i:=1 to n do
if not odd(i) then
arr[i]:=num;
end;
 
procedure main(arr: Tarr; ch: char);
var
num: integer;
begin
writeln('Ìàññèâ ',ch);
cin(arr);
cout(arr);
writeln('Ñðåäíåå îòðèöàòåëüíûõ ìàññèâà ',ch,' ',sfind(arr));
if sfind(arr)<>0 then
change(arr,sfind(arr))
else
begin
writeln('Ââåäèòå ÷èñëî äëÿ çàìåíû â ìàññèâå ',ch);
readln(num);
change(arr,num);
end;
writeln('Íîâûé ìàññèâ ',ch);
cout(arr);
writeln;
end;
 
 
begin
randomize;
main(a,'a');
main(b,'b');
main(c,'c');
end.