дан массив из n чисел найти сумму тех чисел у которых нечетный индехс и числа кратны 5 или 3

Question

Информатика

Пануля

12 октября, 13:14

дан массив из n чисел найти сумму тех чисел у которых нечетный индехс и числа кратны 5 или 3

+3

Ответы (1)

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

Валеша · Answer 1

Var a:array[1 ... 100000] of integer;

s, i, n:integer;

begin

readln (n) ;

for i:=1 to n do begin

read (a[i]) ;

if (i mod 2 0) and ((a[i] mod 5 = 0) or (a[i] mod 3 = 0)) then s+=a[i];

end;

writeln (s) ;

end.