Создать с клавиатуры массив из 10 целых чисел найти их произведения не четных

2

Ответы и объяснения

2013-11-20T21:11:53+04:00
Uses crt;var  a: array [1..10] of integer;  x,S: integer;  begin  S:=1;  for x:=1 to 10 do  begin      write(x,' элемент массива - '); readln(a[x]);      if a[x] mod 2 <> 0 then S:=S*a[x];  end;  writeln(S);end.
2013-11-20T21:19:16+04:00
Program kokoko;
uses  crt;
var 
i: integer; 
 n: array [1..10] of integer; 
k: real;
begin 
 i := 0; 
for i := 1 to 10 do    
begin   
k := 1;   
writeln('Введите значение ', i, ' элемента');   
 read(n[i]) 
end;   
for i := 1 to 10 do  begin       
if odd(n[i]) then     begin      k := k * n[i];    
end; 
end; 
writeln('Ответ: ',k);
end.