1711Элина
Опубликовано 6 лет назад по предмету Информатика от 1711Элина


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

  1. Ответ
    Ответ дан Maksim2009rus
    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.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц