С клавиатуры задается число N не превышающее 20, определяющее количество частей

Question

С клавиатуры задается число N не превышающее 20, определяющее количество частей

С клавиатуры задается число N не превышающее 20, определяющее количество частей одномерного целочисленного массива. Потом вручную заполняется сам массив из N элементов. Особым элементом этого массива назовём элемент, значение которого больше своего индекса (порядкового номера). Нумерация индексов начинается с 1. Отыскать сумму особенных элементов массива.
Входные данные: натуральное число N и N целочисленных элементов массива.
Выходные данные: число сумма особенных элементов массива.

Написать начальный код паскаль

Задать свой вопрос

Соловьянов Игорь
Информатика
2019-09-02 20:39:33
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

написать рассказ с фразеологизмом засучив рукава

что обозначает слово серп

помогите построить кривую:(x+5) + (y-1) = 25, y=(x-1)

заполни таблицу сложения. Сравни слогаемые и суммы в строчках и столбцах

Органы дыхания и газообмен пиявки

Помогите пожайлусто 3. Нужно срочно

белестен шапан бест ат, бкр келген желст ат

ветер слова синонимы

В чём заключалось отличие Итальянского Возрождения , от Голландского ?

1-ый провод длиной 7м разрезали на 12 одинаковых долей, а 2-ой

Мария Пхор · Answer 1 · 2019-09-02 20:44:41+3:00

Var

i, n, summ: integer;
mas: array[1..20] of integer;

begin
n := 0;
summ := 0;

while n lt;= 0 do
begin
    writeln('enter N (1-20) = ');
    read(n);
end;

for i := 1 to n do
begin
     read(mas[i]);
     if mas[i] gt; i then
       summ := summ + mas[i]
end;

writeln('sum = ', summ);

end.

О проекте

С клавиатуры задается число N не превышающее 20, определяющее количество частей

Добро пожаловать!