????СРОЧНО НУЖНА ПОМОЩЬ! НАПИШИТЕ ПРОГРАММУ ПО ИНФОРМАТИКЕ! МАССИВ! МОЖЕТ КТО ЗНАЕТ КАК ДЕЛАТЬ, ТАКОЕ ЗАДАНИ!

Question

МОЖЕТ КТО ЗНАЕТ КАК ДЕЛАТЬ, ТАКОЕ ЗАДАНИЕ,
----В массиве храниться информация о массе учащихся класса из 30 человек, определите в какой половине списка средняя масса учеников больше: в первой или во второй. Примерно так :k, n: integer;
begin
 n:=0;
 write('m: ');
 for k:= 1 to 30 do
 begin
 m[k]:=random(100)-50;
 write(m[k]: 3)
 end;
 writeln;
 for k:= 1 to 30 do
 if m[k]<0 then
 begin
 n:=k;
 write(' kg учащихся m; ', n);
 end;
end.

Только у меня то что мне надо, можете помочь
 исправить.
НАПИШИТЕ ПРОГРАММУ В PascalABC! ЧЕРЕЗ МАССИВ! 10 КЛАСС! СПАСИБО ЗАРАНЕЕ)

Екатерина Никишина · Accepted Answer

Максим · Answer

var
m:array[1..30] of integer;
s1, s2: integer;
i:integer;
begin
write('m: ');
for i:= 1 to 30 do
begin
m[i]:=random(100)-50;
write(m[i],' ');
if i <=15 then s1 := s1 + m[i]
else s2 := s2 + m[i];
end;
writeln;
if s1/15>s2/15 then write('v 1 polovine bolshe!')
else if s1/15<s2/15 then write('vo 2 polovine bolshe!')
else write('oni ravny!');
end.

Наталья · Answer

почему в разделе про джаву? почему не в с/с++?