Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
-4 / 0 / 0
Регистрация: 11.02.2014
Сообщений: 70
1

Дан двухмерный массив целых чисел. Вычислить сумму всех положительных нечетных элементов массива

08.05.2014, 14:29. Просмотров 851. Ответов 6
Метки нет (Все метки)

Дан двухмерный массив целых чисел. Вычислить сумму всех положительных нечетных элементов массива.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2014, 14:29
Ответы с готовыми решениями:

Дан двухмерный массив целых чисел. Определить среднее арифметическое всех элементов массива
22 Дан двухмерный массив целых чисел. Определить среднее арифметическое всех элементов массива

Дан двухмерный массив целых чисел. Определить сумму четных элементов массива
Дан двухмерный массив целых чисел. Опеределить сумму четных элементов массива.

Дан массив целых чисел. Найти сумму всех четных элементов стоящих на нечетных местах.
Доброго всем времени суток! Помогите с программой. Дан массив целых чисел. Найти сумму всех...

Дан список из 10 целых чисел. Составить программу, вычисляющую сумму всех положительных нечетных чисел.
Здравствуйте дорогие друзья! Я слезно прошу помощи... Задачки небольшие но ЛИСП мне не дается к...

6
60 / 60 / 46
Регистрация: 25.11.2011
Сообщений: 259
08.05.2014, 15:16 2
опять же только основное
Pascal
1
2
for i:=1 to n do
 if (a[i]>0) and (a[i] mod 2=1) then sum:=sum+a[i];
0
353 / 134 / 28
Регистрация: 16.12.2012
Сообщений: 607
Записей в блоге: 1
08.05.2014, 22:02 3
Маленькая тайна .. -1 mod 2 = -1
0
Модератор
1600 / 1060 / 480
Регистрация: 17.07.2012
Сообщений: 5,245
08.05.2014, 22:24 4
Цитата Сообщение от Ромаха Посмотреть сообщение
Маленькая тайна .. -1 mod 2 = -1
Pascal
1
2
for i:=1 to n do
 if a[i] mod 2=1 then sum:=sum+a[i];
А если писать с odd то не прокатит...
0
60 / 60 / 46
Регистрация: 25.11.2011
Сообщений: 259
09.05.2014, 15:56 5
Цитата Сообщение от Ромаха Посмотреть сообщение
Маленькая тайна .. -1 mod 2 = -1
а там условие что элемент положительный
0
353 / 134 / 28
Регистрация: 16.12.2012
Сообщений: 607
Записей в блоге: 1
09.05.2014, 15:58 6
Цитата Сообщение от kastiniel Посмотреть сообщение
а там условие что элемент положительный
именно поэтому условие a > 0 можно отбросить!
0
Модератор
1600 / 1060 / 480
Регистрация: 17.07.2012
Сообщений: 5,245
09.05.2014, 15:59 7
kastiniel, нечетные отрицательные при делении на 2 дадут -1 в остатке,а положительные нечетные - 1 в остатке. Потому условие положительности можно откинуть.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.05.2014, 15:59

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

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

Дан двухмерный массив целых чисел. Определить сумму элементов больших 30
Дан двухмерный массив целых чисел. Определить сумму элементов больших 30

Дан одномерный массив целых чисел. Определите сумму всех цифр в записи элементов массива.
Дан одномерный массив целых чисел. Определите сумму всех цифр в записи элементов массива. (Напишите...

Дан двухмерный массив. Определить сумму всех элементов массива
Дан двухмерный массив. Определит сумму всех элементов массива. Заранее спасибо)

Дан двухмерный массив целых чисел. В каждой его строке найти сумму отрицательных элементов
Дан двухмерный массив целых чисел. В каждой его строке найти сумму отрицательных элементов. Задачу...

Создать массив из 10 целых случайных чисел. Вычислить сумму четных элементов массива и среднее арифметическое нечетных
Создать массив из 10 целых случайных чисел. Вычислить сумму четных элементов массива и среднее...


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

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

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