В массиве а1, а2 , ..., а40 найти сумму чисел, расположенных ** местах кратных 3.

Question

В массиве а1, а2 , ..., а40 найти
сумму чисел, расположенных на местах кратных 3.

Comments

ПАСХАЛЬ?

---

да

---

норм?

---

д понятно, спасибо:)

Answer 1

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.

Comments

спасибо:)

Answer 2

Напишу сам алгаритм переменные сам задашь:
for i to 40 do
begin
if (i mod 3=0) then
s:=s+a[i];
end;

Comments

да дальше понятно, спасибо