Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Дан действительный массив А(п). Упорядочить массив по убыванию, по возрастанию https://www.cyberforum.ru/ turbo-pascal/ thread691986.html
Дан действительный массив А(п). Упорядочить массив по убыванию, по возрастанию
Turbo Pascal Вычислить: y=sin 1+ sin 1.1+sin 1.2+.+sin2
Вычислить: y=sin 1+ sin 1.1+sin 1.2+...+sin.помоги пожалуйста!
Turbo Pascal Дано натуральное число n. а) определить н-ое число Фибоначчи;
заранее спасибо!
Turbo Pascal Найти сумму всех четных чисел от 1 до п; Дано натуральное число п. Найти сумму: а) всех четных чисел от 1 до п; б) всех нечетных чисел от 1 до п. https://www.cyberforum.ru/ turbo-pascal/ thread691963.html
Turbo Pascal Найти первое натуральное число из диапазона https://www.cyberforum.ru/ turbo-pascal/ thread691915.html
Добрый день. Помогите пожалуйста. Она не сложная, только не знаю как реализовать. Задание: Найти первое натуральное число из диапазона, определяемого типом Integer, в котором все четные цифры больше...
Turbo Pascal Отсортировать столбцы массива методом выбора
Нужно отсортировать столбцы массива по убыванию. Я сначала начал делать по возрастанию, но он и так не сортирует. Не знаю даже где ошибка program lab6; var a: array of integer; ...
Turbo Pascal Одномерный массив: поиск, суммирование, сжатие
В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1) номер минимального по модулю элемента массива; 2) сумму модулей элементов массива, расположенных после первого...
Turbo Pascal Вычислить квадрат, корень квадрата, куб Ввести два позитивных числа меньше 256 например 1 пробел 7 вычислить квадрат корень квадрата и куб. Вывести на екран в виде таблицы. квадрат куб корень квадрата 1 ... https://www.cyberforum.ru/ turbo-pascal/ thread691868.html
Turbo Pascal алгоритм для функции расстановки в хэш-таблице https://www.cyberforum.ru/ turbo-pascal/ thread691837.html
помогите!! есть алгоритм для разрешения коллизий расстановка по методу середины квадратов : не могу понять где нужно исправить, показывает ошибку 26 program hash; {zanesenie i poisk zapisey v...
Turbo Pascal Вычислить сумму ряда доброго времени...помогите пожалуйсто решить задачу с помощью всех циклов отдельно, но в пределах одной программы. (нельзя использовать ln и exp) запутался в циклах уже... https://www.cyberforum.ru/ turbo-pascal/ thread691817.html
99 / 96 / 61
Регистрация: 08.08.2012
Сообщений: 163
08.11.2012, 12:35 0

Определить сумму элементов массива, имеющих нечетные индексы - Turbo Pascal - Ответ 3668921

08.11.2012, 12:35. Показов 1453. Ответов 2
Метки (Все метки)

Ответ

сотри всё в цикле и добавь это
Pascal
1
2
3
4
  if i mod 2 <> 0 then begin
    writeln(i,' ',mas[i]);
  sum:=sum+mas[i];
  end;


Вернуться к обсуждению:
Определить сумму элементов массива, имеющих нечетные индексы Turbo Pascal
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2012, 12:35

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вычислить произведение элементов массива, имеющих нечетные индексы
Дано одномерный массив действительных чисел Х и действительное число а. Составить программу...

Найти наибольший из элементов массива, имеющих нечетные индексы.
Можете подправить задачку, а то чето не работает! program massiv; const n=10; const...

Вычислить среднее арифметическое положительных элементов массива, имеющих нечетные индексы.
Вычислить среднее арифметическое положительных элементов массива, имеющих нечетные индексы.

Найти сумму четных элементов массива, имеющих четные индексы
Ребята, помогите с задачей пожалуйста: Дан целочисленный массив С из n эл-тов (n&lt;=30). Нужно найти...

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