Нажми на кнопку — получишь результат, и твоя мечта осуществится...

var
   n,i,k,s:integer;
   a:array[1..n] of integer;
begin
   Write('Количество учеников в классе: ');
   Read(n);
   Writeln('Введите рост школьников');
   s:=0; k:=0;
   for i:=1 to n do begin
      Read(a[i]);
      if a[i]<0 then begin s:=s+a[i]; k:=k+1 end;
   end;
   if k=0 then Writeln('Сведения о росте мальчиков отсутствуют')
   else Writeln('Средний рост мальчиков равен ',-s/k:0:1)
end.
a:array[1..n] of integer;

if a[i]<0 then begin s:=s+a[i]; k:=k+1 end;

a:array[1..n] of integer;

a:array[1..n] of integer;

Program ROST;
const n=10;
var
M:Real; i:integer; m1:integer;
a:array[1..n] of real;
begin
randomize;
for i:=1 to n do
a[i] := Random(450)-300;
M:=0;
for i:=1 to n do
IF a[i]<>0 Then
Begin
     if a[i] > 0 then
         begin
         M := M + Abs(a[i]);
         m1 := m1 + 1;
         end;
End;
writeln ('Средний рост мальчиков:= ', M/m1:0:2);
end.

begin
writeln ('Средний рост мальчиков:= 128.8');
end.

const sex: String[2] = 'дм';
var
  n, i, a, s, k: Integer;
begin
  Randomize;
  n:=20+Random(6); {s:=0;}
  WriteLn('Учеников в классе: ',n);
  for i:=1 to n do begin
    a:=(100+Random(100))*(1-2*Random(2));
    Write(sex[1+Ord(a<0)]:4,Abs(a):4);
    if a<0 then begin
      s:=s-a; Inc(k);
    end;
  end; WriteLn;
  if k<>0
  then WriteLn('Средний рост мальчиков: ',s/k:0:2)
  else WriteLn('Мальчиков нет');
end.

const mn=20; mr=5; sex: String[2] = 'дм';
var
  a: array [1..mn+mr] of Integer;
  n, i, s, k: Integer;
begin
  Randomize;
  n:=mn+Random(mr+1); {s:=0;}
  WriteLn('Учеников в классе: ',n);
  for i:=1 to n do begin
    a[i]:=(100+Random(100))*(1-2*Random(2));
    Write(sex[1+Ord(a[i]<0)]:4,Abs(a[i]):4);
    if a[i]<0 then begin
      s:=s-a[i]; Inc(k);
    end;
  end; WriteLn;
  if k<>0
  then WriteLn('Средний рост мальчиков: ',s/k:0:2)
  else WriteLn('Мальчиков нет');
end.

const mn=20; mr=5; sex: String[2] = '+-';
var
  a: array [1..mn+mr] of Integer;
  n, i, s, k: Integer;
begin
  Randomize;
  n:=mn+Random(mr+1); {s:=0;}
  WriteLn('Учеников в классе: ',n);
  for i:=1 to n do begin
    a[i]:=(100+Random(100))*(1-2*Random(2));
    Write(sex[1+Ord(a[i]<0)]:4,Abs(a[i]):4);
    if a[i]<0 then begin
      s:=s-a[i]; Inc(k);
    end;
  end; WriteLn;
  if k<>0
  then WriteLn('Средний рост мальчиков: ',s/k:0:2)
  else WriteLn('Мальчиков нет');
  Readln;
end.

    Write(a[i]:8);