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.

Answer 2

Конечно, вот пример программы на языке Паскаль, которая вычисляет сумму элементов массива, у которых порядковый номер совпадает со значением элемента:

pascalCopy code
program SumOfMatchingIndices;
const
  MaxSize = 100;
var
  arr: array[1..MaxSize] of Integer;
  N, i, sum: Integer;
begin
  write('Введите количество элементов в массиве (N): ');
  readln(N);
  
  writeln('Введите элементы массива:');
  for i := 1 to N do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;
  
  sum := 0;
  for i := 1 to N do
  begin
    if i = arr[i] then
      sum := sum + arr[i];
  end;
  
  writeln('Сумма элементов совпадающих с порядковым номером: ', sum);
end.

В этой программе мы сначала запрашиваем у пользователя количество элементов в массиве N, а затем заполняем массив arr этой длины. Затем мы проходим по массиву и проверяем каждый элемент: если его значение совпадает с его порядковым номером, то добавляем его к сумме sum. В конце выводим полученную сумму на экран.