Получить сумму положительных и число отрицательных членов указанной последовательности

@ziwn2010 · Регистрация: 13.12.2012

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

@Soniyagfto · 12.06.2013, 00:09

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

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

Pascal

Program abcx;
var a:array[1..255] of integer;
i,s,k,n:integer;
begin
writeln ('введите размерность ряда(массива)');
readln (n);
writeln ('введите массив(ряд a1,a2..an)');
for i:=1 to n do 
readln (a[i]);
for i:= 1 to n do begin
IF (a[i]>=0) then s:=s+a[i] else
IF (a[i]<0) then inc(k);
end;
writeln ('сумма положительных=',s,' ','Число отрицательных=',k);
end.

@ziwn2010 6 / 6 / 1 Регистрация: 13.12.2012 Сообщений: 104
		1
	Получить сумму положительных и число отрицательных членов указанной последовательности 12.06.2013, 00:02. Просмотров 1843. Ответов 1 Метки нет (Все метки) Дано натуральное число n, целые числа a1, a2, ..., an. Получить сумму положительных и число отрицательных членов указанной последовательности. 0

Опции темы

Получить сумму положительных и число отрицательных членов указанной последовательности

Решение