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

@Макс1 · Регистрация: 18.05.2011

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

Вычислить сумму положительных элементов , произведение отрицательных элементов.
Написать программу в Turbo Pascal по заданному условию .

magirus · 18.05.2011, 19:49

Комментарий модератора

Называйте темы максимально информативно

@KaiTheCat · 18.05.2011, 20:07

Макс1, в массиве, в матрице?..

Добавлено через 4 минуты
Короче, в массиве.

Pascal

var
   a: array[1..100] of integer;
   i,n: byte;
   s,p: integer;
begin
   randomize;
   write('размерность: ');
   readln(n);
   s:=0;
   p:=1;
   for i:=1 to n do
      begin
         a[i]:=random(101)-50;
         write(a[i],' ');
         if a[i]<0 then p:=p*a[i]
            else inc(s,a[i]);
      end;
   writeln('сумма положительных: ',s);
   writeln('произведение отрицательных: ',p);
   readln
end.

@Макс1 0 / 0 / 0 Регистрация: 18.05.2011 Сообщений: 9
		1
	Вычислить сумму положительных элементов , произведение отрицательных элементов. 18.05.2011, 19:42. Показов 1220. Ответов 2 Метки нет (Все метки) Вычислить сумму положительных элементов , произведение отрицательных элементов. Написать программу в Turbo Pascal по заданному условию . 0

	18.05.2011, 20:07

Опции темы

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

Решение