Найти среднее арифметическое

[karisha98]

Задание: Найти количества положительных элементов в массивах A,B,C, а затем - их среднее арифметическое

Кто сможет исправить ошибку???

type mas=array[1..5] of integer;
var a,b,c:mas; sum,s,k:integer;

procedure InMas (var m:mas; n:integer; mas_name:char);
var i:integer;
begin
writeln('Введите массив',mas_name,'из',n,'элементов:');
for i:=1 to n do read(m[i])
end;

procedure OutMas (m:mas; n:integer; mas_name:char);
var i:integer;
begin
writeln('массив',mas_name,':');
for i:=1 to n do write(m[i]);
writeln
end;

function MaxChet(m:mas; i,n:integer):integer;
var s,k:integer;
begin
k:=0;
     For i:=1 to n do
     If m [i] > 0 Then k:=k + 1;
     s:=0; s:=s+m[i];
    end;
     
     begin
InMas(a,5,'A'); InMas(b,5,'B');InMas(C,5,'C');
OutMas(a,5,'A'); OutMas(b,5,'B'); OutMas(C,5,'C');
sum:=MaxChet(a,5,s)+MaxChet(b,5,s)+MaxChet(c,5,s);
writeln ('Положительные элементы', MaxChet(s,k));
writeln ('Среднее арифметическое = ',sum/k);
end.

[newerow1989]

Кто сможет исправить ошибку???

Я!

type mas=array[1..5] of integer;
 var a,b,c:mas; sum,k:integer;

 procedure InMas (var m:mas; n:integer; mas_name:char);
 var i:integer;
 begin
 writeln('Введите массив',mas_name,'из',n,'элементов:');
 for i:=1 to n do read(m[i])
 end;

 procedure OutMas (m:mas; n:integer; mas_name:char);
 var i:integer;
 begin
 writeln('массив',mas_name,':');
 for i:=1 to n do write(m[i]);
 writeln
 end;

 function MaxChet(m:mas; n:integer; var k:integer):integer;
 var i:integer;
 begin
     Result:=0;
     For i:=1 to n do
     begin
     If m [i] > 0 Then k:=k + 1;
       Result:=Result+m[i];
     end;
    end;

 begin
 InMas(a,5,'A'); InMas(b,5,'B');InMas(C,5,'C');
 OutMas(a,5,'A'); OutMas(b,5,'B'); OutMas(C,5,'C');
 k:=0;
 sum:=MaxChet(a,5,k)+MaxChet(b,5,k)+ MaxChet(c,5,k);
 writeln ('Положительные элементы', MaxChet(s,k));
 writeln ('Среднее арифметическое = ',sum/k);
 Readln;
 end.

Сойдет?

[karisha98]

Спасибо большое ^--------^ все работает правильно :з

[newerow1989]

Пожалуйста!