Даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных членов последовательности a1,...,an

@Молдир · Регистрация: 20.10.2013

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

даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных членов последовательности a1,...,an

@TAVulator · 05.03.2014, 23:03

Pascal

var
 n, sum, otr, a, i: integer;
begin
 write('n= ');
 readln(n);
 for i:=1 to n do
  begin
   write('a',i,': ');
   readln(a);
   if a<0 then inc(otr) else inc(sum,a);
  end;
 writeln('Сумма положительных: ',sum);
 writeln('Число отрицательных: ',otr);
 readln;
end.

@Молдир · 05.03.2014, 23:14 **[ТС]**

спасибо!!!

@Молдир 0 / 0 / 0 Регистрация: 20.10.2013 Сообщений: 43
		1
	Даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных членов последовательности a1,...,an 05.03.2014, 22:47. Показов 11702. Ответов 2 Метки нет (Все метки) даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных членов последовательности a1,...,an 0

@Молдир 0 / 0 / 0 Регистрация: 20.10.2013 Сообщений: 43
	05.03.2014, 23:14 [ТС]	3
	спасибо!!! 0

Даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных членов последовательности a1,...,an

Решение