Developing.ru

Код: Выделить всё

uses crt;
const n=10;
var massiv:array[1..200]of real;
    summ_pol,summ_otr:real;
    i,k_pol,k_otr,elem:integer;
begin
  randomize;
  clrscr;
  for i:=1 to n do
    begin
      elem:=random(101)-50;
      massiv[i]:=elem;
      if massiv[i]>=0
      then begin
        summ_pol:=summ_pol+massiv[i];
        k_pol:=k_pol+1;
      end
      else begin
        summ_otr:=summ_otr+massiv[i];
        k_otr:=k_otr+1;
      end;
      write(massiv[i]:4:2,' ');
    end;
  writeln;
  massiv[1]:=summ_pol/k_pol;
  massiv[n]:=summ_otr/k_otr;
  for i:=1 to n do
    write(massiv[i]:4:2,' ');
  readln;
end.