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

@@)WoLF(@ · Регистрация: 13.11.2010

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

@aka_GRAD · 18.12.2010, 07:45

Pascal

S:=0; S1:=0;
P:=1; P1:=0;
For i:=1 to n do
 If M[i]>0 then
  begin
   S:=S+M[i];
   P:=P*M[i];
  end
 else
 If M[i]<>0 then
  begin
   S1:=S1+M[i];
   P1:=P1*M[i];
  end;

@@)WoLF(@ · 18.12.2010, 10:58 **[ТС]**

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

Pascal

S:=0; S1:=0;
P:=1; P1:=0;
For i:=1 to n do
 If M[i]>0 then
  begin
   S:=S+M[i];
   P:=P*M[i];
  end
 else
 If M[i]<>0 then
  begin
   S1:=S1+M[i];
   P1:=P1*M[i];
  end;

Напишите полностью алгоритм!!! спасибо!!

@@)WoLF(@ 1 / 1 / 2 Регистрация: 13.11.2010 Сообщений: 23
		1
	Найти суму (произведение) положительных (отрицательных) элементов массива 18.12.2010, 03:56. Показов 1082. Ответов 2 Метки нет (Все метки) Найти суму (произведение) положительных (отрицательных) элементов массива 0

	18.12.2010, 10:58

Опции темы

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

Решение