Дан массив из n элементов. Найти сумму элементов которые крытны своим индексам.

Question

Дан массив из n элементов. Найти сумму элементов которые крытны своим индексам.

Answer 1

program HelloWorld;

const N = 100;

var m:array [1..N] of real;

var i: integer;

var j: integer;

var summ: real;

 

begin

    summ:=0;

    for i := 1 to N do

    begin

        j:= random(555);

        m[i]:=j;

        if j mod i = 0 then summ:=summ+m[i];       

    end;

 

    write(summ:10:0);

end.