В массиве а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.