Знайти суму від'ємних елементів масиву а [1: 10]
p.s нужно решить алгоритмом
20 )​

// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
const
  k=4; //количество классов
  u=18; // количество учеников в классе
var
  a:array[1..k,1..u] of real; // массив с ростом
  n:array[1..k] of integer; // массив результатов
  i,j:integer; // счетчики циклов
  m:real; // средний рост ученика в классе
begin
  for i:=1 to k do begin
    Writeln('Введите рост учеников ',i,'-го из классов');
    m:=0;
    for j:=1 to u do begin Read(a[i,j]); m:=m+a[i,j] end;
    m:=m/u;
    n[i]:=0;
    for j:=1 to u do
      if abs(a[i,j]-m)>5.0 then Inc(n[i]);
    end;
  Writeln('Количество учеников с ростом, отличающимся от среднего');
  Writeln('по каждому из классов более, чем на 5');
  for i:=1 to k do Write(n[i]:5)
end.

Пример решения для упрощенного случая, когда в классе на 18, а 5 учеников (чтобы меньше набирать)
Введите рост учеников 1-го из классов
168 174 181 172 175
Введите рост учеников 2-го из классов
162 173 170 158 183
Введите рост учеников 3-го из классов
157 185 159 168 167
Введите рост учеников 4-го из классов
170 173 176 168 171
Количество учеников с ростом, отличающимся от среднего
по каждому из классов более, чем на 5
    2    3    3    0

1) Program NoName;
Var i,m : integer; 
Begin 
read(m);
if m>31 then begin 
for i:=31 to m do 
 if (i mod 16) = 0 then writeln(i); 
end;
end.

2)Program NoName;
Var i,n,x,c : integer; 
Begin 
c:=1;
x:=0;
i:=0;
while i<5 do begin 
 if (c mod 13) = 0 then
 begin  x:=x+c; i:=i+1;
end; 
c:=c+1;
end; 
write(x); 
end.

3)Program NoName;
Var i,n,x,c : integer; 
Begin 
read(n);
c:=1;x:=1;i:=0;
while i<n do
begin 
if (c mod 11) = 0 then
begin  x:=x*c;
i:=i+1;
end;
c:=c+1;
end; 
write(x); 
end.

4)Program NoName;
Var i,m,x : integer; 
Begin
x:=0;i:=1;
while x<7 do begin 
 if (i mod 7) = 0 then
 begin  
writeln(i);x:=x+1;
 end;i:=i+1;
end;
end.