Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Прямоугольник и отрезок http://www.cyberforum.ru/turbo-pascal/thread974977.html
Помогите доделать задачу. Вводятся координаты верхнего правого и нижнего левого угла, и координаты концов некого отрезка, нужно узнать длину той части отрезка, которая входит в прямоугольник, вроде...
Расчет теодолитного хода Turbo Pascal
задача программы заключается в расчете теодолитного хода. после ввода данных вылетает без какой-либо ошибки. вот программа: program teodolitnyihod; var...
Turbo Pascal Чтение из файла данных и последующий вывод на экран в виде линейного однонаправленного списка
Здравствуйте, я новичок в программировании. Не понимаю как выполнить следующую задачу: Дан список группы в 10 человек в виде ФАМИЛИЯ ГОД_РОЖД. ...
Turbo Pascal Поиск вещественных чисел Помогите исправить ошибку Program Massiv; var c:array of real; k,s,p:real; n:integer; Begin k:=0; p:=1; s:=0; http://www.cyberforum.ru/turbo-pascal/thread974939.html
Turbo Pascal Создать массив В, содержащий суму элементов строк матрицы А http://www.cyberforum.ru/turbo-pascal/thread974930.html
Создать массив В, содержащий суму элементов строк матрицы А. Матрица заполняется случайными числами с помощью функции Random. Матрица 4х4
Turbo Pascal Расчёт в экселе по программе
Ребят, пожалуйста сделайте расчет в экселе вот к этой программе. Очень надо... Только пусть он будет приличный и более менее объемный или хотя бы просто не мизерный. program LR3; uses crt; var...
Turbo Pascal Не могу найти правильную версию Паскаль
Перепробовал разные версии Паскаля на двух компьютерах где стоит win 7 x64: School Pak 1.3 С эмулятором DosBox Borland Pascal 7.0 Turbo мультиязычные версии, и только с русским/английским...
Turbo Pascal Додумать условие не могу с условием дописать интересует второй рисунок и треугольник расположенный с осью Oy if (x>=0)and(y>=0)and(x<=3)and(y<=3)and(y<=x)or (y>=1)and(y<=4)and(x<=1)and (x>=0)and ? http://www.cyberforum.ru/turbo-pascal/thread974882.html
Turbo Pascal Прочитать натуральное число а, которое может содержать до 100 цифр http://www.cyberforum.ru/turbo-pascal/thread974839.html
К цифрам натурального числа a (a>9) применяется операция циклический сдвиг влево.Пример применения этой операции к числу 1730382, в итоге получается число 7303821, тоесть все числа сдвинуты влево.К...
Turbo Pascal Действия с векторами Дан вектор А и вектор В. Если разность между максимальными элементами векторов больше 10, то из положительных элементов обеих векторов сформировать матрицу С. Иначе в векторе А за максимальным... http://www.cyberforum.ru/turbo-pascal/thread974809.html
ilyadenisovid
30 / 45 / 38
Регистрация: 20.03.2013
Сообщений: 162
11.10.2013, 20:47 0

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

11.10.2013, 20:47. Просмотров 1118. Ответов 6
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program test;
var
n, i, sum1, sum2, m : integer;
begin
writeln('n = ');
readln(n);
sum1 := 0;
sum2 := 0;
for i:=1 to n do
begin
writeln('Введите ', i, ' - е число');
readln(m);
if m > 0 then sum1 := sum1 + m
else sum2 := sum2 + m;
end;
writeln('Сумма положительных - ', sum1, '. Сумма отрицательных - ', sum2);
readln;
end.


Вернуться к обсуждению:
Получить сумму положительных и отрицательных членов последовательности
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2013, 20:47

Сумма положительных и количество отрицательных членов последовательности
Мое задание выглядит так: Даны натуральное число n и натуральные a1,…,an, где n&lt;=3000. Получить...

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

Найти сумму отрицательных членов последовательности
помогите решить задачу пожалуйста Найти сумму отрицательных членов последовательности.......

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