Сделайте, пожалуйста, задачку про средний возраст!

[BeaU]

Известны возраст (в годах в виде 14.5 лет и т.д.) каждого ученика двух классов. Определить средний возраст учеников каждого класса. В каждом классе учатся 20 человек.

[fbus]

халявщиков развелось столько....
что сделал из этой задачи?

можешь в аську написать если ничего

[BeaU]

Ничего...
Я не могу в асю, потому-что сижу с коледжа, а мне сегодня надо сдать((

[profi]

program abc;
var
a:array[1..20] of real;
b:array[1..20] of real;
i:integer;
sr_a,sum_a,sum_b,sr_b:real;
begin
for i:=1 to 20 do
begin
write ('a[',i,']='); readln(a[i]);
end;
for i:=1 to 20 do
begin
write ('b[',i,']='); readln(b[i]);
end;
for i:=1 to 20 do
begin
sum_a:=sum_a+a[i];
sum_b:=sum_b+b[i];
end;
sr_a:=sum_a/20;
sr_b:=sum_b/20;
writeln ('a=',sr_a);
writeln ('b=',sr_b);
readln;
end.

[BeaU]

Спасибо, очень помогли мне))

[danekne]

Блин, жесть))) пришел в колледж, получил задание на лабу - и на programmersforrum. Авось за два часа ответят)))