Паскаль для решения следующей задачи: заполнить ЦЕЛОЧИСЛЕННЫЙ массив 20-ю случайными...

Question

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

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

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

Answer 1

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.