Вычислить сумму произведений всех троек соседних чисел массива

@proger2030 · Регистрация: 15.11.2010

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

Дан одномерный числовой массив A из n элементов. Вычислить сумму произведений всех троек соседних чисел.
Вот на паскале

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const
  n=10;
var
  a:array[1..n]of integer;
  i,j,sum:longint;
begin
  writeln('Исходный массив:');
  sum:=0;
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    if i>=3 then
      inc(sum,a[i]*a[i-1]*a[i-2]);
    write(a[i],' ')
  end;
  WriteLn;
  WriteLn(sum)
end.

Перевел на С++. Но у меня что-то не так. Прошу поясните что не так или что лишний

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#include <iostream.h>
#include <cstdlib>
 
const n = 10;
 
int main () {
 
    int mas[n];
    int i, j, sum;
    
    cout << "Ishodnoi massiv: ";
    sum = 0;
 
    for (i = 0; i < n; i++)
 
        mas[i] = rand();
        
        if (i >= 3)
            sum = sum + mas[i] * mas[i-1] * mas[i -2];
 
    for (i = 0; i < 10; i++)
    cout << mas[i] << ' ';
        
    cout << endl;
    cout << "Summa proizvedenii vsex troek sosednih chisel: " << sum << endl;
 
 
    
 
 
 
    return 0;
}

@grizlik78 · 06.09.2011, 19:34

Не по теме:

Сообщение от #pragma

soon, а как Вы сделали такой меленький шрифт в коде С++? Выглядит симпатично. Это он сам таким стаёт,если пользоваться тегом OFF?

Да. Может это и было бы симатичным, если бы номера строк тоже уменьшались :) А так вразнобой идёт. Строки отдельно, номера сами по себе.

@soon · 06.09.2011, 19:37

Не по теме:

C++
1
2
std::cout << "А вы попробуйте :)\n
             Можно еще попробовать размер другой выставить. Тогда шрифт не будет серым. Наверное. ;)";

Добавлено через 2 минуты

Не по теме:

Строки отдельно, номера сами по себе.

Действительно. А я даже и не заметил :) При малом количестве строк не бросается в глаза.
Офф прекращаю.

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .	Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .
Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .	Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .