Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
6 / 6 / 1
Регистрация: 13.12.2012
Сообщений: 104
1

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

12.06.2013, 00:02. Просмотров 1843. Ответов 1
Метки нет (Все метки)


Дано натуральное число n, целые числа a1, a2, ..., an. Получить сумму положительных и
число отрицательных членов указанной последовательности.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.06.2013, 00:02
Ответы с готовыми решениями:

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

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

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

Получить число отрицательных членов подпоследовательности и число нулевых членов всей последовательности
Program ms1; uses crt; const n=45; var a:array of integer; i,ko,kn:integer; begin clrscr;...

1
60 / 67 / 37
Регистрация: 29.01.2013
Сообщений: 374
Записей в блоге: 1
12.06.2013, 00:09 2
Лучший ответ Сообщение было отмечено ziwn2010 как решение

Решение

Цитата Сообщение от ziwn2010 Посмотреть сообщение
Дано натуральное число n, целые числа a1, a2, ..., an. Получить сумму положительных и
число отрицательных членов указанной последовательности.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.06.2013, 00:09

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти сумму положительных и количество отрицательных членов последовательности
Даны целые числа A1, A2, …, An. Получить сумму положительных и число отрицательных членов...

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

Получить удвоенную сумму всех положительных членов последовательности a [1], ... a [n].
дано натуральное число n, действительные числа a , ..., a . Получить удвоенную сумму всех...

Получить удвоенную сумму всех положительных членов последовательности A 1, A2 , ..., An
Даны натуральное число n, действительные числа A1,A2,...,An.Получить удвоенную сумму всех...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.