Паскаль для решения следующей задачи:

заполнить ЦЕЛОЧИСЛЕННЫЙ массив 20-ю случайными элементами

в диапазоне от 20 до 40 и найти сумму лишь НЕЧЁТНЫХ номеров (элементов) массива.

const    n = 20;var    a: array[1..n] of integer;    i, s: integer;begin    randomize;    for i := 1 to n do     begin        a[i] := random(20) + 20;        write(a[i], ' ');        if i mod 2 = 1 then            s := s + a[i];    end;        writeln();    writeln(s);end.