Дан массив из 15 чисел посчитать количество тех чисел, у которых чётный индекс. Помогите пожалуйста.
5-9 класс
|
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 четных чисел
Я тут поразмыслил: может, надо найти сумму чисел с чётными индексами? Иначе зачем ещё нужен массив?
конечно так логичнее)
тогда сейчас подправлю)
Скорее всего да.
Другие вопросы из категории
вычисления:
а) y=x10 б) y=x15
Постараться использовать минимальное количество дополнительных переменных.
Пример ввода:3.5
Пример вывода:Число дробное
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.