• Очень срочно! 50 баллов за ответ.
    Задать массив генератором случайных чисел в диапазоне [-25;25]. Найти произведение отрицательных элементов массива и вывести на экран все нечетные элементы массива.

Ответы 3

  • спасибо
    • Автор:

      pinata
    • 6 лет назад
    • 0
  • достаточно кнопочки синей)
    • Автор:

      masonkron
    • 6 лет назад
    • 0
  • // PascalABC.Net 3.0, сборка 1052const  nn=100;var  i,n:integer;  a:array[1..nn] of integer;  p:real;begin  Write('Количество элементов в массиве: '); Read(n);  Writeln('Исходный массив');  for i:=1 to n do begin    a[i]:=Random(51)-25;    Write(a[i],' ')  end;  Writeln;  p:=1;  Writeln('Нечетные элементы:');  for i:=1 to n do begin    if a[i]<0 then p:=p*a[i];    if a[i] mod 2 <> 0 then Write(a[i],' ')  end;  Writeln;  Writeln('Произведение отрицательных элементов: ',p)end.Тестовое решение:Количество элементов в массиве: 20Исходный массив-18 -9 18 15 7 -20 -4 18 -24 -6 -24 2 -3 -10 12 -4 19 4 0 -17 Нечетные элементы:-9 15 7 -3 19 -17 Произведение отрицательных элементов: -91371110400
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years