Вычислить среднее арифмитическое отрицательных элементов одномерного массива

program test;
const n=5;
var a:array[1..n] of integer; i,k:integer;s:real;
begin
randomize;
s:=0;k:=0;
writeln('massiv');
for i:=1 to n do
begin
a[i]:=random(20)-10;
if a[i]<0 then begin s:=s+a[i];k:=k+1;end;
write(a[i],' ');
end;
writeln;
writeln('suma otrots: ',(s/k):4:2);
readln;
end.

const N=10;
var a,b,c:array[1..N]of integer;
    i,k,j:byte;
begin
    for i:=1 to N do
    begin
      a[i]:=random(-100,100);
      write('[',i,']=',a[i],' ');
      if a[i]<0 then begin inc(j); b[j]:=a[i] end;
      if a[i]>=0 then begin inc(k); c[k]:=a[i] end;
    end;
    writeln;
    writeln('Первый массив(отрицательные числа):');
    for i:=1 to j do write('[',i,']=',b[i],' ');
    writeln;
    writeln('Второй массив(положительные числа):');
    for i:=1 to k do write('[',i,']=',c[i],' ');
end.

const
n=10;
type
mas=array[1..10]of integer;
var
k:integer;
m:mas;
Procedure Delete(Var m:mas);
Var i : Integer;
Begin
For i:=2 To n-1 Do
m[i]:= m[i+1]; {i-ìó ýëåìåíòó ïðèñâàèâàåì çíà÷åíèå (i+1)-ãî}
m[10]:=0;{ïîñëåäíèé ýëåìåíò ðàâåí 0}
for i:=1 to n-1 do
write(m[i],' ');
End;
begin
for k:=1 to n do
begin
m[k]:=random(10);
write(m[k],' ');
end;
writeln;
delete(m);
end.

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,j,j1,k,n,max,q:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
Max:=x[1];
for i:=1 to n do
  if x[i]>=max then begin
                    max:=x[i];
                    j:=i;
                    end;
Writeln (' Maxim element = ',max);
Writeln;
Write (' Pervyi otricatelnyi element = ');
for i:=1 to n do
  if x[i]<0 then begin
                 k:=x[i];
                 j1:=i;
                 break;
                 end;
Writeln (k);
Writeln;
                 q:=x[j1];
                 x[j1]:=x[j];
                 x[j]:=q;
Writeln (' polychen massiv ');
For i:=1 to n do write (x[i]:3);
Readln
end.

program test;
var a:array[1..50] of integer;
i,n:integer;
s:real;
begin
write('n=');
read(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
s:=0;
for i:=1 to n do
begin
if (a[i]<0) then
s:=s+a[i]
end;
writeln('s=',s);
end.

if a[i]<0 then begin s:=s+a[i];k:=k+1;end;
write(a[i],' ');
end;
writeln;
writeln('suma otrots: ',(s/k):4:2);

uses crt;
var  a :array[1..10] of integer;
     a1:array[1..5]  of integer;
     a2:array[1..5]  of integer;
     i,j:integer;
begin clrscr;
writeln('§*Ї®«*塞 ¬*ббЁў Ђ');
 
for i:=1 to 10 do
                 begin
                 readln(a[i]);
                 end;
 
writeln('ђ*§ЎЁў*Ґ¬ ¬*ббЁў');
 
for i:=1 to 10 do
                 begin
                 if a[i]<0 then a1[i]:=a[i];
                 end;
for i:=1 to 10 do
                 begin
                 if a[i]>0 then a2[i]:=a[i];
                 end;
for i:=1 to 10 do writeln(' ',a1[i] , ' ',a2[i]);
readln;
end.

var  a :array[1..10] of integer;
 
     j,i:integer;
begin
randomize;
writeln('ishodnii massiv');
for i:=1 to 10 do
                 begin
                 a[i]:=random(6)-2;
                 write(a[i]:3);
                 end;
 readln;
 j:=2;
  for i:=1 to 10 do
     begin
     if a[i]<0 then
      break;
     end;
     j:=i;
 writeln('Cislo elementov pered otritsat. elementom= ',j-1);
 readln;
 end.