Заполнить массив к(1 то n) случайными числами из отрезка [a, b] и определить произведение нечетных элементов.
nikitame6
1
24.09.2019 09:40
2
Другие вопросы по теме Информатика
1Err0r1
31.08.2019 00:10
LIZETTA111
31.01.2021 19:35
gashuna
31.01.2021 19:32
lenusyamailru
16.01.2020 20:37
linochek278
16.01.2020 20:36
maksCRAFTer
16.01.2020 22:31
25marta52
16.01.2020 22:31
Топирчик
10.07.2019 13:30
Darina02020
10.07.2019 13:20
Популярные вопросы
- Выясните, имеет ли окружность (х-3) в кв. + (у+1) в кв=1 с осью...
3 - Вероятность улучшить свой предыдущий результат с одной попытки...
2 - Abcd- прямоугольная трапеция с основаниями ad-9см и bc-4см....
3 - Старики - выполни морфологический разбор ( разбери слово как...
3 - Автотуристы в первый день проехали 900 км., во второй день 700км....
3 - Кролик лиса волк и петух решали уравнения. 54у-36у-9=153 (15и-21).3+27=234...
1 - Решите уравнения 3 x -1 =0 ; 3x-x+5x=2.1 ; 3y-11=1-2y ; 4(x-+9)=1...
1 - 1)hcooh + ba 2)c4h9cooh + c2h5oh 3)c2h5cooh + cao...
1 - По полю рыщет, телят, ягнят ищет. вперевалку зверь идёт по малину...
1 - C8h18+ co2+h2o нужно уровнять реакцию...
1
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.
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.