Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 18.04.2013
Сообщений: 21

Определить, является ли сумма элементов с четными индексами меньше суммы элементов с нечетными индексами

28.05.2013, 18:46. Показов 1700. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
25)
Дан одномерный массив из 10 элементов. Определить, является ли сумма элементов с четными индексами меньше суммы элементов с нечетными индексами.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
28.05.2013, 18:46
Ответы с готовыми решениями:

Определить суммы элементов массива с четными и нечетными индексами; вывести их значения на печать
Дан одномерный массив X (x1, x2, …, xN). Определить суммы элементов массива с четными и нечетными индексами; вывести их значения на...

Определить, делится ли сумма элементов массива с чётными индексами на сумму элементов с нечётными индексами
Привет Ребята! помогите с решением! в долгу не останусь) задано натуральное число n и массив и n целых чисел a0,a1,...,an-1. Написать...

Для массива из N элементов вычесть из суммы элементов с нечетными индексами сумму элементов с четными индексами
Здравствуйте уважаемые форумчане. Как решить эту задачу? "Для массива из N элементов вычесть из суммы элементов с нечетными индексами...

1
 Аватар для BaboshinSD
349 / 288 / 49
Регистрация: 15.11.2012
Сообщений: 477
Записей в блоге: 1
28.05.2013, 19:00
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

andser, вот:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
  A: array [1..10] of integer;
  Sum1, Sum2: integer;
 
begin
  for var i := 1 to 10 do
    A[i] := Random(10);
   
  WriteLn('Ваш массив: ');
  for var i := 1 to 10 do
    Write(A[i], ' ');
  
  for var i := 1 to 10 do
    if i mod 2 = 0 then
     Sum1 += A[i]
    else
     Sum2 += A[i];
  
  WriteLn();
  if Sum1 > Sum2 then
    WriteLn('Сумма чётных > суммы нечётных.')
   else
    WriteLn('Сумма нечётных > суммы чётных.')
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
28.05.2013, 19:00
Помогаю со студенческими работами здесь

Определить произведение элементов массива с четными индексами, и сумму элементов с нечетными индексами
В массиве вещественных чисел Z = (z1, z2, …, Zм) определить произведение P элементов с четными индексами и сумму S элементов с нечетными...

В массиве определить произведение элементов с четными индексами и сумму элементов с нечетными индексами
Создание многомодульных программ ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ. -Составить программу,содержащую функции согласно заданного варианта ...

Создать подпрограмму с параметром. Определить сумму элементов с чётными индексами и сумму элементов с нечётными индексами
Пожалуйста помогите сделать задачи: 3)Дан целочисленный массив, состоящий из 12 элементов. Определить сумму элементов с чётными индексами...

Найти сумму элементов с четными индексами и произведение элементов с нечетными индексами
Задан массив S(К). Найти сумму элементов с четными индексами и произведение элементов с нечетными индексами.

Найти сумму элементов с нечетными индексами и произведение элементов с четными индексами
в DELPHI задача решена, нужно перевести в PASCAL unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru