Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Найти сумму S ряда, общий член которого an = (n!) 2 / (2n 2)! https://www.cyberforum.ru/ pascal/ thread898978.html
Найти сумму S ряда, общий член которого an = (n!) 2 / (2n 2)!. суммировать пока очередной член ряда по модулю не станет меньше y = 10-6.
Pascal подсчитать число вхождений
помогите решить задачу на Pascal: Дан текст , каждый символ которого может быть буквой, цифрой или одним из знаков +, -, *. Подсчитать число вхождений буквы f в первые три группы букв. Спасибо всем...
Вычислить f=sin|a1+a2+...+an| Pascal
Дано натуральное число n, действительные числа a1, a2, ..., an. вычислить f = sin | a1 + a2 + ... + an |.
Pascal Оси координат в графике в паскале Здравствуйте. Помогите пожалуйста исправить программу или киньте ссылку теорией по моей проблеме, как в паскале в модуле graphabc подписать оси и как вывести деления величин на оси координат.?... https://www.cyberforum.ru/ pascal/ thread898795.html
Pascal Вывести полученый массив и сумму с поясняющими комментариями https://www.cyberforum.ru/ pascal/ thread898605.html
Дан одномерный массив В(n), n<=30 содержащий элементы целого типа . Подсчитать сумму индексов элементов, равных 0 . Упорядочитать массив методом обменов . Вывести полученый массив и сумму с...
Дана строка символов. Напечатать слова, которые начинаются и заканчиваются одной и той же буквой. Pascal
Доброго времени суток всем! Cам просто тему проболел и разобраться не могу, буду очень благодарен : Дана строка символов. Напечатать слова, которые начинаются и заканчиваются одной и той же...
Дано целое число N (1<N<33). Вывести N первых строчных букв русского алфавита Pascal
Доброго времени суток всем! Условие : Дано целое число N (1<N<33). Вывести N первых строчных букв русского алфавита.
Pascal Найти и вывести все номера четных элементов массива, стоящих на нечетных местах Найти и вывести все номера четных элементов массива, стоящих на нечетных местах. https://www.cyberforum.ru/ pascal/ thread897742.html
Pascal Напечатать данный текст большими рускими буквами https://www.cyberforum.ru/ pascal/ thread897684.html
дан текст с малых руских букв, за какими следует точка, напечатать этот текст большими рускими буквами. (Паскаль)
Pascal Выдаёт ошибку. Не пойму как исправить uses crt; var a:array of shortint; ... https://www.cyberforum.ru/ pascal/ thread897680.html
60 / 67 / 37
Регистрация: 29.01.2013
Сообщений: 374
Записей в блоге: 1
12.06.2013, 00:09 0

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

12.06.2013, 00:09. Показов 1938. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.06.2013, 00:09
Готовые ответы и решения:

Даны натуральное число 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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.