Question

Найти произведение элементов массива, имеющих нечетные индексы и выбрать из них минимальный (программа: тема массив)

Answer 1

var
    a: array [1..100] of integer;
    n, c: integer;
    p: real;
begin
    randomize;
    write('n? ');
    readln(n);
    write('array:');
    for c := 1 to n do begin
        a[c] := random(9) + 1;
        write(' ', a[c]);
    end;
    writeln;
    c := 1;
    p := 1;
    while c <= n do begin
        p := p * a[c];
        inc(c, 2);
    end;
    writeln('result: ', p:0:0);
end.