Регистрация
Oclahoma
28.12.2022 12:34
Информатика
Есть ответ 👍

, нужно закрыть итоговые оценки
Заранее

141
398
Посмотреть ответы 1

Ответы на вопрос:

оопда
оопда
4,6(48 оценок)
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.

Популярно: Информатика