В массиве найти сумму его отрицательных элементов и произведение положительных

@Zhurik_Zheka · Регистрация: 14.06.2014

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

Для массива а1, а2, а3, ... а10 получить сумму его отрицательных элементов и произведение положительных.
Сумма должна быть равна S= -120

@Svager · 15.06.2014, 21:54

Сообщение от Zhurik_Zheka

Сумма должна быть равна S= -120

так Вы значения,напишите

Добавлено через 4 минуты
Такое уже решали,пользуйтесь поиском.
В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов.

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    i,j,s,d,n:integer;
begin
 repeat
  write('n=');
   readln(n);
 until n in [1..nmax];
  writeln('Èñõîäíûé ìàññèâ :');
  d:=1;
   for i:=1 to n do
    begin
     a[i]:=-10+random(20);
      if a[i]<0 then
       s:=s+a[i];
      if a[i]>0 then
       d:=d*a[i];
      write(a[i]:4);
    end;
  writeln;
   writeln('Ñóììà îòðèöàòåëüíûõ = ',s);
    writeln('Ïðîèçâåäåíèå ïîëîæèòåëüíûõ = ',d);
end.

@Zhurik_Zheka 0 / 0 / 0 Регистрация: 14.06.2014 Сообщений: 4
		1
	В массиве найти сумму его отрицательных элементов и произведение положительных 15.06.2014, 14:24. Показов 2383. Ответов 1 Метки нет (Все метки) Для массива а1, а2, а3, ... а10 получить сумму его отрицательных элементов и произведение положительных. Сумма должна быть равна S= -120 0

	15.06.2014, 21:54

В массиве найти сумму его отрицательных элементов и произведение положительных

Решение