В массиве а1, а2, ..., а40 найти

сумму чисел, расположенных на местах кратных 3.

Напишу сам алгаритм переменные сам задашь:

for i to 40 do

begin

if (i mod 3=0) then

s:=s+a[i];

end;

Program sum;

Uses crt;

Var A: array [1 ... 40] of integer;

i, s: integer; {i - переменная цикла, s - сумма}

Begin clrscr;

Writeln ('Введите элементы массива') ;

for i:=1 to 40 do

read (a[i]) ;

writeln;

s:=0;

for i:=1 to 40 do

begin

if (i mod 3=0) then

s:=s+a[i];

end;

Writeln ('S = ', s) ;

readln;

readkey;

end.