Решить по инфе массив не использовать. 1 известны оценки по каждого из 20учеников (вводятся с клавиатуры) определить среднюю оценку. 2 определить сумму чисел кратных 3 от 300 до 700 3 известен рост каждого ученика класса в классе 10 человек рост мальчиков условно задан отрицательными числами определить средний рост мальчиков и средний рост девочек написать программы в pascal

Задача №1  (остальные по мере создания через несколько минут)

uses Crt;
const n = 20;
var    i, ball, Sum: integer;
begin ClrScr; 
Sum:=0;
 for i:=1 to n do
 begin   
     Write ( ' Ball ' ,i , ' = ');   
      ReadLn(Ball);
      Sum:=Sum+Ball;
 end;  
WriteLn; 
Writeln ('Sred = ' , Sum/n:4:1); 
ReadLn;
end.