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

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

Question

Информатика

Аграфена

20 декабря, 04:22

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

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

+4

Ответы (2)

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

Ксана · 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.

Ария · Answer 2

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

for i to 40 do

begin

if (i mod 3=0) then

s:=s+a[i];

end;

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

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

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