Дан одномерный целочисленный массив K из 15 элементов, заданный случайным образом в диапазоне от - 20, до + 25.

Найдите сумму всех положительных элементов, индексы которых кратны 3. Вывести на экран сам массив и сумму.

Question

Информатика

Фортунат

9 августа, 22:46

Дан одномерный целочисленный массив K из 15 элементов, заданный случайным образом в диапазоне от - 20, до + 25.

Найдите сумму всех положительных элементов, индексы которых кратны 3. Вывести на экран сам массив и сумму.

+4

Ответы (2)

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

Линуся · Answer 1

Program z1; const n = 15; Var k: array [1 ... n] of integer; i, s:integer; Begin randomize; for i:=1 to n do begin k[i]:=random (25) - 20; write (k[i],' ') ; end; s:=0; for i:=1 to n do if ((k[i]>0) and (i mod 3 = 0)) then s:=s+k[i]; writeln; writeln ('Сумма элементов - ', s) ; End.

Николич · Answer 2

Var K:array [1 ... 15] of integer;

z:integer;

begin

for i:=1 to 15 do

k: = random (56) - 20;

z:=0;

for i:=1 to 15 do

if k[i]>0 then z:=z+k[i];

for i:=1 to 15 do

writeln (z) ;

end.

Начало и доп знаки доставь