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

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

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

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

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

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

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.