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

Question

Информатика

Ляна

16 марта, 01:37

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

+4

Ответы (1)

Знаете ответ на вопрос?

Венюша · 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.