По сведениям об учиниках класса определить среднюю масу мальчиков и средний рост девочек.

[Vitruvian]

По сведениям об учиниках класса определить среднюю масу мальчиков и средний рост девочек. Кто из учеников класса самый высокий?
Помогите решить задачу на Паскале ОЧЕНЬ ПРОШУ!

[galaid]

создаешь два массива. в один массив вводишь массы мальчиков, в другой рост девочек. и в конце суммируешь элементы каждого массива и делишь на число элементов

[galaid]

var a:array [1..100] of integer;
    b:array [1..100] of integer;
    i,n,s,e:integer;
begin
writeln('vvedite kolichestvo malchikov');
readln(n);
writeln('vvedite poocheredi massu malchikov');
for i:=1 to n do
readln(a[i]);
i:=1;
s:=0;
while i<>n+1 do
begin
s:=s+a[i];
i:=i+1;
end;
writeln('sredni massa malchikov ravna ',s/n);
writeln('vvedite kolichestvo devochek');
readln(e);
writeln('vvedite poocheredi rost devochek');
for i:=1 to e do
readln(b[i]);
i:=1;
s:=0;
while i<>e+1 do
begin
s:=s+b[i];
i:=i+1;
end;
writeln('sredni rost devochek raven ',s/e);
end.

[Vitruvian]

Большое Вам спасибо что решили мою проблему))

[galaid]

да лан, незачто