Дан массив целых чисел,состоящий из 10 элементов. Заполнить его с клавиатуры. Найти сумму элементов кратных 3 и вывести элементы четных индексов.
Дан массив целых чисел,состоящий из 10 элементов. Заполнить его с клавиатуры. Найти сумму элементов кратных 3 и вывести элементы четных индексов.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы