Дан массив из 15 чисел посчитать количество тех чисел, у которых чётный индекс. Помогите пожалуйста.
Дан массив из 15 чисел посчитать количество тех чисел, у которых чётный индекс. Помогите пожалуйста.
Гость
Ответ(ы) на вопрос:
Гостьvar a: array [1..15] of integer; i, s: integer;
begin
for i := 1 to 15 do
read(a[i]);
s := 0;
for i := 1 to 15 do
if i mod 2 = 0 then
s := s + a[i];
writeln(s);
end.
Гостьтут даже программу писать не надо, ибо от 1 до 15 всегда ровно 7 четных чисел
Не нашли ответ?
Похожие вопросы