В массиве F(15) найти сумму элементов, стоящих ** нечетных местах

Question

В массиве F(15) найти сумму элементов, стоящих на нечетных местах

Answer 1

Const
    n = 15;
var
    i, s: integer;
    a: array[1..n] of integer;

begin
    s := 0;
    for i := 1 to n do
    begin
        write('a[', i, ']=');
        readln(a[i]);
        if i mod 2 = 1 then
            s := s + a[i];
    end;
    writeln(s);
end.

Comments

Если задуматься о сути задания, то совсем непонятно, зачем тратить половину времени на ввод данных в мусорник, заведомо зная что они не нужны?

---

Это точно, как у Ярослава Гашека в "Похождениях бравого солдата Швейка", когда нужно посадить на гауптвахту десять человек: "Запер бы
двадцать, а десять бы выпустил". Но там это фраза в иллюстрацию тупости...

---

Ну и дали бы в задании, что делать с четными, а что - с нечетными...

---

даже в таком случаем массив не обязателен, просто это пример где нужно его использовать и все тут)))

---

а получается что таким способом отучают детей оптимально мыслить.

---

Именно. Фраза "дан массив..." предполагает, что пишется фрагмент программы, к моменту исполнения которого имеется уже заполненный массив. Но при этом требуется написать полную программу и этот массив приходится создавать и заполнять. А по-хорошему надо требовать процедуру, в которую массив передается.

---

логично. ведь так же ж и пишется по нормальному

---

А потому что у нас изучение предмета идет "через назад" и модульность программ изучается в конце и тут-то появляется понимание, что все эти Write и Read - всего лишь процедуры, а sqrt, abs и тюдю - функции.

---

да школьную информатику даже вспоминать не хочется с этой точки зрения. Но кто хочет и может потом разберется.