Нахождение ср. арифметического в подпрограмме, помогите решить задачку! Опции

[Анжела Дэвис]

Здравствуйте!
помогите пожалуйста решить задачку:

Даны массивы А(7), В(9), С(10).Определить в каком из исходных массивов среднее арифметическое элементов положительно.
Нахождение среднего арифметического элементов массива оформить в виде подпрограммы.

[Catty]

Код

uses Crt;
const n=7; m=9; l=10;
type mas1=array[1..n] of integer;
    mas2=array[1..m] of integer;
    mas3=array[1..l] of integer;
var
a:mas1; b:mas2; c:mas3;
i,g,h,j:integer;
Function Sa(s:array of integer; t:integer):real;
var i,Sum:integer;
begin
Sum:=0;
for i:=1 to t do
begin
Sum:=Sum+s[i];
Sa:=Sum/t;
end;
end;
Begin
ClrScr;
writeln('vvod masiva a:>');
g:=0;
for i:=1 to n do
read(a[i]);
if Sa(a,n)>0 then inc(g);
writeln('vvod masiva b:>');
h:=0;
for i:=1 to m do
read(b[i]);
if Sa(b,m)>0 then inc(h);
writeln('vvod masiva c:>');
j:=0;
for i:=1 to l do
read(c[i]);
if Sa(c,l)>0 then inc(j);
if g>0 then writeln('Sa masiva a polojutelno');
if h>0 then writeln('Sa masiva b polojutelno');
if j>0 then writeln('Sa masiva c polojutelno');
ReadKey;
end.

Сообщение отредактировано: Catty - 23.04.2004 19:32