Задать вопрос
ИнформатикаИнформатика
13 октября, 10:43

Заполнить массив К (1 То N) случайными числами из отрезка [A, B] и определить произведение нечетных элементов.

+5
Ответы (2)
  1. 13 октября, 11:08
    0
    Var

    a: array of integer;

    i, N, prod: integer;

    flag: boolean;

    begin

    prod : = 1; flag : = False;

    write ('Введите N - > ') ;

    readln (N) ;

    SetLength (a, N) ;

    for i:=0 to High (a) do begin

    A[i] : = random (10) - 5;

    write (A[i], ' ') ;

    if (abs (A[i] mod 2) = 1) then

    prod * = A[i];

    flag : = True;

    end;

    writeln () ;

    if (flag) then

    writeln ('Произведение нечетных элементов: ', prod, '.')

    else

    writeln ('В массиве нет нечетных элементов.') ;

    end.
  2. 13 октября, 11:31
    0
    Var

    a: array of integer;

    i, N, prod: integer;

    flag: boolean;

    begin

    prod : = 1; flag : = False;

    write ('Введите N - > ') ;

    readln (N) ;

    SetLength (a, N) ;

    for i:=0 to High (a) do begin

    A[i] : = random (10) - 5;

    write (A[i], ' ') ;

    if (abs (A[i] mod 2) = 1) then

    prod * = A[i];

    flag : = True;

    end;

    writeln () ;

    if (flag) then

    writeln ('Произведение нечетных элементов: ', prod, '.')

    else

    writeln ('В массиве нет нечетных элементов.') ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Заполнить массив К (1 То N) случайными числами из отрезка [A, B] и определить произведение нечетных элементов. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Главная » Информатика » Заполнить массив К (1 То N) случайными числами из отрезка [A, B] и определить произведение нечетных элементов.
Регистрация Забыл пароль