Отыскать произведение частей массива, имеющих нечетные индексы и выбрать из их

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

Задать свой вопрос
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 lt;= n do begin
        p := p * a[c];
        inc(c, 2);
    end;
    writeln('result: ', p:0:0);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт