Дан массив целых чисел,состоящий из 10 элементов. Заполнить его с клавиатуры. Найти сумму...

Question

Дан массив целых чисел,состоящий из 10 элементов. Заполнить его с клавиатуры. Найти сумму элементов кратных 3 и вывести элементы четных индексов.

Answer 1

Const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
for i:=1 to n do readln(a[i]);
s:=0;
writeln('Элементы с четными индексами:');
for i:=1 to n do
 begin
 if a[i] mod 3 = 0 then s:=s+a[i];
 if i mod 2 = 0 then write(a[i],' ');
 end;
writeln;
writeln('s = ',s);
end.

Пример:
12
87
65
45
19
73
42
84
21
34
Элементы с четными индексами:
87 45 73 84 34 
s = 291