Question

Составьте программу для решения одной из следующих задач, которая запрашивает значение элементов одномерного числового массива А и подсчета суммы элементов массива, меньших своего номера.

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=5;

Var
 a:array[1..n] of integer;
 i,s:integer;
begin
 for i:=1 to n do
  begin
   readln(a[i]);
   if a[i]<i then s:=s+a[i];
  end;
 writeln(s);
end.

Пример ввода:
2
2
1
1
2
Пример вывода:
4