Question

Задана последовательность из N целых чисел. Вычислить сумму тех элементов массива, порядковые номера которых совпадают со значением этого элемента.Написать программу на паскале.​

Answer 1

Var

i,n,s: Integer;

x: Array[1..100] of Integer;

BEGIN

Write('Введите кол-во элементов: ');

Readln(n);

Writeln('Введите массив:');

For i:=1 to n do

Readln(x[i]);

Clrscr;

Writeln('Массив:');

For i:=1 to n do

begin

If x[i]=i Then s:=s+x[i];

Write(x[i]:4);

end;

Writeln;

Writeln('Сумма = ',s);

END.