Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/34: Рейтинг темы: голосов - 34, средняя оценка - 4.85
0 / 0 / 0
Регистрация: 16.09.2013
Сообщений: 13
1

Вводится последовательность из n целых чисел найти сумму всех нечетных чисел

08.10.2013, 13:33. Показов 6741. Ответов 6
Метки нет (Все метки)

Вводится последовательность из n целых чисел найти сумму всех нечетных чисел

Помогите пожалуйста я немного не понял
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2013, 13:33
Ответы с готовыми решениями:

С клавиатуры вводится последовательность дробных чисел(окончание ввода-0) найти сумму всех чисел,количество отрицательных и количество положительных.
В общем,ребята. Помогите написать код,буду очень признателен. С клавиатуры вводится...

С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел.
Решить задачу 3 способами: 1. Используя метки и оператор goto (не используя никакой цикл) 2....

С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Вывести на экран в процессе ввода чисел: a1+a2, a2+a3, …. aN-1+aN
Помогите, пожалуйста! Решить задачу 3 способами: 1. Используя метки и оператор goto (не...

Вводится последовательность из 15 целых чисел. Найти количество четных чисел
Ребят помогите пожалуйста . В Паскале не селён а вот тут надо работы сдать. Вводится...

6
66 / 69 / 33
Регистрация: 07.10.2013
Сообщений: 396
08.10.2013, 13:45 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var i,j,s:integer;
a:array[1..100] of integer;
begin
writeln('Введите кол-во');
readln(j);
writeln('ваш массив');
for i:=1 to j do
begin
a[i]:=random(50)-20;
write(a[i]:4);
if a[i]<0 then s:=s+a[i];
end;
writeln;
write('Сумма всех не четных чисел равна: ',s);
end.
0
990 / 514 / 102
Регистрация: 19.03.2013
Сообщений: 3,113
Записей в блоге: 19
08.10.2013, 13:50 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const n = 10;
var input_var,summa:integer;
    i:integer;
begin
summa:=0;
writeln('Введите ',n,' целых чисел');
 
for i:=1 to n do
 begin
  read(input_var);
   if i mod 2 <> 0 then
    summa:=summa+input_var;
 end;
 writeln('Сумма нечетных чисел равна ',summa);
end.
0
22 / 22 / 7
Регистрация: 11.09.2013
Сообщений: 186
08.10.2013, 13:54 4
Цитата Сообщение от Sead Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var i,j,s:integer;
a:array[1..100] of integer;
begin
writeln('Введите кол-во');
readln(j);
writeln('ваш массив');
for i:=1 to j do
begin
a[i]:=random(50)-20;
write(a[i]:4);
if a[i]<0 then s:=s+a[i];
end;
writeln;
write('Сумма всех не четных чисел равна: ',s);
end.
if a[i]<0 then s:=s+a[i],эта формула ищет числа меньше 0!
1
990 / 514 / 102
Регистрация: 19.03.2013
Сообщений: 3,113
Записей в блоге: 19
08.10.2013, 13:57 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const n = 10;
var input_var,summa:integer;
    i:integer;
begin
summa:=0;
writeln('Введите ',n,' целых чисел');
 
for i:=1 to n do
 begin
  read(input_var);
   if input_var mod 2 <> 0 then
    summa:=summa+input_var;
 end;
 writeln('Сумма нечетных чисел равна ',summa);
end.
1
0 / 0 / 0
Регистрация: 16.09.2013
Сообщений: 13
08.10.2013, 14:00  [ТС] 6
Спасибо огромное, выручил))
0
Sead
08.10.2013, 14:29     Вводится последовательность из n целых чисел найти сумму всех нечетных чисел
  #7

Не по теме:

ахахаах сорри прочитал отрицательных))

0
08.10.2013, 14:29
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2013, 14:29
Привет! Вот еще темы с ответами:

Вводится произвольная последовательность целых чисел,заканчивающаяся нулем. Найти среднее арифметическое четных чисел
Вводится произвольная последовательность целых чисел,заканчивающаяся нулем. Найти среднее...

Вводится последовательность из N целых чисел. Найти сумму положительных n количество отрицательных чисел
Вводится последовательность из N целых чисел.Найти сумму положительных n количество отрицательных...

Цикл Дана непостая последовательность целых чисел, оканчивающихся нулем. Найти сумму всех чисел последовательности, большее числа х
Цикл Дана непостая последовательность целых чисел, оканчивающихся нулем. Найти сумму всех чисел...

Дана последовательность из n целых чисел. Найти сумму нечётных элементов этой последовательности
Помогите решить задачу с использованием ключевых слов как &quot;repeat&quot; и &quot;until&quot;. Дана...


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

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

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