Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов

@AvaII · Регистрация: 18.10.2013

Author24 — интернет-сервис помощи студентам

Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов.

Хотелось бы чтобы код был не велик.

@CodeR · 26.10.2013, 09:09

Pascal

Var A:array[1..100] of integer;
    i,n:byte;
    s1,s2:integer;
Begin
    write('Размер массива: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
      if A[i]>0 then inc(s1,A[i])
       else inc(s2,A[i]);
    End;
    writeln;
    writeln('Сумма положительных = ',s1);
    writeln('Сумма отрицательных = ',s2);
    writeln('Частное от деления = ',s1 mod abs(s2));
    readln;
End.

@AvaII 0 / 0 / 0 Регистрация: 18.10.2013 Сообщений: 36
		1
	Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов 26.10.2013, 08:52. Показов 1966. Ответов 1 Метки нет (Все метки) Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов. Хотелось бы чтобы код был не велик. 0

	26.10.2013, 09:09

Опции темы

Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов

Решение