Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/22: Рейтинг темы: голосов - 22, средняя оценка - 4.55
Admiral`Nelson
1

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

31.05.2012, 23:44. Просмотров 4028. Ответов 2
Метки нет (Все метки)

Даны целые числа а1,…,а50. Получить сумму тех чисел данной последова-тельности, которые нечётны и отрицательны.
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.05.2012, 23:44
Ответы с готовыми решениями:

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

Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны
Хай всем. Помогите пожалуйста программу составить на следующих условиях: Даны целые числа a1..a50....

Даны целые числа a1.a50, получить сумму тех чисел, которые кратны нацело на 5, нечетны, отрицательны
Даны целые числа a1..a50, получить сумму тех чисел, которые кратны нацело на 5, нечетны,...

Получить сумму тех чисел данной последовательности которые кратны 3
помогите решить))вообще в этом не смыслю)))а то ссесия летит к чертям...

__________________
2
20 / 20 / 15
Регистрация: 31.03.2012
Сообщений: 28
01.06.2012, 00:31 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program m1;
const e= 50;                   {Поменяйте для изменения длинны последовательности}
var m: array [1..e] of integer;
    a,b: integer;
begin
for a:= 1 to e do begin      {Заполнение последовательности случайными значениями}
m[a]:= Random(e+e)- e;         {и её вывод на экран}
write(m[a],' ');
end;
writeln();
{-----------------------------------------}
for a:= 1 to e do
if m[a] < 0 then                           {Выполнение условий задания}
   if m[a] mod 2 <> 0 then
      if m[a] <> -1 then b:= b+ m[a];
{-----------------------------------------}
writeln(b);                                {Вывод результата сложения}
end.
0
20 / 20 / 15
Регистрация: 31.03.2012
Сообщений: 28
02.06.2012, 16:54 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Почему то решил, что 1 это не четное ни нечетное, поправил.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program m1;
const e= 5;
var m: array [1..e] of integer;
    a,b: integer;
begin
for a:= 1 to e do begin
m[a]:= Random(e+e)- e;
write(m[a],' ');
end;
writeln();
for a:= 1 to e do
if m[a] < 0 then
   if m[a] mod 2 <> 0 then b:= b+ m[a];
writeln(b);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2012, 16:54

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

Получить сумму тех чисел данной последовательности, которые кратны 7
Дана последовательность целых чисел A1,..A50. Получить сумму тех чисел данной последовательности,...

Получить сумму тех чисел данной последовательности которые нечетные
Написать программы трех типов циклов на языке Pascal для следующей задачи: Даны первые десять...

Получить произведение трех членов последовательности, которые нечетны и отрицательны
Помогите. Задача срочно нужна для экзамена. ) Вывести на экран целые числа в следующем виде:...

Получить сумму тех чисел данной последовательности, которые кратны 5 - построить блок-схему
Здравствуйте! Помогите с построением блок схем! Спасибо! 1. Даны целые числа а1,…,а50. Получить...


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

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

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