sumaray.PAS

{* Количество положительных, отрицательных элементов *}

Unit SUMARAY;
Interface
Implementation
Begin
 writeln('Количество положительных, отрицательных элементов массива
'
);
End.

Program Summa;

Uses sumaray.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключаем внешние файлы *}
Type {* Типы переменных *}
  Mas = Array[1..50] Of Real;
Var {* Необходимые переменные *}
  A : Mas;
  b : String;
  s : real;
  f : real;
  c : Integer;
  d : Integer;
  w : Integer;
  x : Integer;
  r : Integer;
Begin
  ClrScr; {* Очистка экрана *}
  Writeln('Введите инфу в масив ');
  writeln('Кол - во элементов');
  readln(d);
  For c := 1 To d Do {* Цикл для c => [1 .. d] *}
  Begin
    writeln('Введите значение элемента ', c, ' .');
    readln(A[c]);
    If A[c]0 Then
      s := s + A[c];
    If A[c]0 Then
      inc(r); {* Прибавим к r единицу *}
  End;
  ClrScr; {* Очищаем экран *}
  writeln('Элементов в масиве - ', d);
  writeln('Всего отрецательных элементов - ', x);
  writeln('Положительных - ', r);
  Writeln('Сумма положительных элементов - ', round(s));
  Writeln('Сумма отрецательных - ', round(f));
  Readln
End.