Найти сумму элементов массива

20.05.2015, 17:06. Показов 561. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Дан одномерный массив A из 22 элементов. Найти: Z=A2+A4+A8+A10+A14+A16+A20+A22
получается A2+A4+A6 и тд.. а как сделать нужную последовательность не знаю.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program massivi;
uses crt;
const n = 22;
var
  A: array[1..n] of real;
  sum: real;
  i,j: integer;
begin
  ClrScr;
  Randomize;
  sum := 0;
for i := 1 to n do
   begin
    A[i] :=14 - 21*random;
    if i mod 2 then
    sum := sum + A[i];
    WriteLn(A[i]:10:2);
  end;
  writeln('Z=: ', sum:10:2);
  writeln('Для выхода из программы нажмите Enter;');
  Readln;
end.

Добавлено через 22 часа 27 минут
Разобрался

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program massivi;
uses crt;
const n = 22;
var
  A: array[1..n] of real;
  sum: real;
  i, j: integer;
begin
  ClrScr;
  Randomize;
  sum := 0;
  for i := 1 to n do
  begin
    A[i] := 14 - 5 * random;
    if i mod 2 = 0 then
      if i mod 3 <> 0 then
        sum := sum + A[i];
    WriteLn( i:2, '  ', A[i]:10:2);
  end;
  writeln(' Z=: ', sum:10:2);
  writeln(' Для выхода нажмите Enter;');
  Readln;
end.

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

20.05.2015, 17:06

Ответы с готовыми решениями:

Найти сумму элементов массива R, а так же сумму корней элементов массива R
дан произвольный массив R размерностью n. найти сумму элементов массива R, а так же сумму корней...

Одномерный массив. Найти произведение элементов массива, кратных 5 и сумму элементов массива, которые приделении на 7 дают остаток 3.
Задан одномерный массив из N элементов. Размерность массива и сам массив вводятся с клавиатуры....

Дан массив из 10 элементов. Найти сумму четных элементов.количество элементов массива должно вводиться с клавиатуры
Дан массив из 10 элементов. Найти сумму четных элементов.количество элементов массива должно...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

20.05.2015, 17:06

Помогаю со студенческими работами здесь

Найти сумму элементов чётных строк массива. Вывести сам массив и сумму
Найти сумму элементов чётных строк массива. Вывести сам массив и сумму. FRepresentation, будьте...

Найти сумму элементов массива. Найти произведение элементов массива
Найти сумму элементов массива. Найти произведение элементов массива. Помогите ,очень срочно...

Найти первый отрицательный элемент массива, сумму четных элементов массива
Одномерный массив А длиной N<=50 заполнить случайными числами из диапазона . Составить программу...

Найти сумму четных элементов массива целых чисел. Размерность массива - 20
Найти сумму четных числе элементов массива целых чисел. Размерность массива - 20. Размерность...

Найти сумму всех элементов массива, меньших 7, в каждом столбце массива
2 .Найти Сумму всех элементов,меньших 7,в каждом столбце массива и вывести ее на экран.

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

Наверх