Предмет: Информатика, автор: Jasminkaaa1336

Напишите программу, которая заполняет массив из 20 элементов натуральными числами и считает разность произведений четных и нечетных элементов массива(paskal)

Ответы

Автор ответа: ShirokovP
0
var 
b: array[1..20] of BigInteger; 
pr, pr1, raz: BigInteger;

begin 
pr := 1; 
pr1 := 1; 
for var i := 1 to 20 do 
begin   
b[i] := random(100) + 10;   
write(b[i]+' ');   
if b[i] mod 2 = 0 then      
pr := pr * b[i];   
if b[i] mod 2 <> 0 then      
pr1 := pr1 * b[i];   
raz := pr - pr1; 
end; 
writeln(); 
writeln('Разница равна ', raz);
end.
Похожие вопросы
Предмет: Физика, автор: mykovaa
Предмет: Английский язык, автор: sultanalyerkenaz61
Предмет: Музыка, автор: jctsg