Question

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

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

Answer 1

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

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

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

writeln('sum = ', summ);

end.