Очень срочно! 50 баллов за ответ.
Задать массив генератором случайных чисел в диапазоне [-25;25]. Найти произведение отрицательных элементов массива и вывести на экран все нечетные элементы массива.
// PascalABC.Net 3.0, сборка 1052
const
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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
