Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Написать решение на языке Pascal/ Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов.
Массивы только начали проходить, написать как можно проще.

Ответ оставил Гость

Const
  n = 15;

var
  a:array[1..n] of integer;
  i,sp,sn: integer;

begin
  Randomize;
  Writeln(Элементы массива);
  sp:=0; sn:=0;
  for i := 1 to n do
  begin
    a[i] := Random(51)-25;
    Write(a[i]:4);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
  end;
  Writeln;
  Writeln(Частное: ,sp/abs(sn))
end.

Тестовое решение:
Элементы массива
   2 -25   0   5  24   4   3   1  12  13  10   1   6  13 -17
Частное: 2.23809523809524

Вариант со вводом данных с клавиатуры:
const
  n = 15;

var
  a:array[1..n] of integer;
  i,sp,sn: integer;

begin
  Writeln(Вводите через пробел элементы массива);
  sp:=0; sn:=0;
  for i := 1 to n do
  begin
    Read(a[i]);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
  end;
  Writeln(Частное: ,sp/abs(sn))
end.