Прога ** паскаль 30 баллов Заполнить линейный массив по формуле: х[i]=2+i*5; Найти сумму...

Question

Прога на паскаль 30 баллов
Заполнить линейный массив по формуле: х[i]=2+i*5; Найти сумму элементов массива ,кратных 4 и 5.

Answer 1

Var x: array[0..100] of Integer;
i,n,sum: Integer;
begin
writeln('Сколько ячеек заполнять?');
readln(n);
for i:=0 to n do
begin
x[i]:=2+i*5;
writeln(x[i]);
end;
for i:=0 to n do
begin
if (x[i] mod 5=0) or (x[i] mod 4=0) then
Inc(sum,x[i]);
end;
writeln('Сумма: ',sum);
end.