Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 26.04.2019, 21:47   #1
Fordy42
 
Регистрация: 17.04.2019
Сообщений: 6
Репутация: 10
По умолчанию Определить сумму элементов с чётными индексами и сумму элементов с нечётными индексами

Дан целочисленный массив, состоящий из 12 элементов. Определить сумму элементов с чётными индексами и сумму элементов с нечётными индексами.
Нужно сделать через процедуру.
Для турбо-паскаля
Fordy42 вне форума   Ответить с цитированием
Старый 26.04.2019, 23:35   #2
digitalis
Профессионал
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Адрес: Минск
Сообщений: 1,559
Репутация: 549
По умолчанию

Ну четность будет зависеть от того, как определен массив: [0..11] или [1..12]. В Паскале допустим и тот, и другой вариант. Даже [11..22].
Это в 7-м классе на информатике уже такие сложные задачи дают ?
Как-то так.
Код:
procedure summas(bgn: integer; vmas:array of integer; var valres: integer) ;
var s,i,j: integer ;
begin
  s := 0 ;
  j := bgn ;
  for i := 1 to 6 do
    begin s := s + vmas[j] ; j := j + 2 end ;
  valres := s
end ;

   summas(0,arr_int,s0) ;
   summas(1,arr_int,s1) ;

Последний раз редактировалось digitalis; 27.04.2019 в 11:50.
digitalis вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задание по Scilab.Определить сумму элементов последовательности с нечетными и элементов с четными порядковыми номерами. irekgaysin Помощь студентам 0 18.01.2014 11:10
Определить сумму элементов последовательности с нечетными и сумму элементов с четными порядковыми номерами irekgaysin Помощь студентам 0 26.12.2013 16:41
найти сумму элементов с чётными номерами из последовательности n чисел. (в Pascal) Nata111 Помощь студентам 3 16.12.2013 20:13
Удаление элементов массива с четными индексами DoGFoX Общие вопросы C/C++ 2 12.12.2013 11:12
Перемножение элементов с нечетными индексами в массиве Adrenalin4 Общие вопросы C/C++ 6 01.11.2010 23:59


00:44.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru