Дан одномерный целочисленный массив K из 15 элементов, заданный случайным образом в диапазоне от -20, до +25. Найдите сумму всех положительных элементов, индексы которых кратны 3. Вывести на экран сам массив и сумму.
Дан одномерный целочисленный массив K из 15 элементов, заданный случайным образом в диапазоне от -20, до +25.
Найдите сумму всех положительных элементов, индексы которых кратны 3. Вывести на экран сам массив и сумму.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Начало и доп знаки доставь
Не нашли ответ?
Похожие вопросы