Помогите пожалуйста!
Составить программу
Задача:
В массиве 10 чисел определить произведение четных, сумму больших 5.
Составить программу
Задача:
В массиве 10 чисел определить произведение четных, сумму больших 5.
More Questions From This User See All
Answers & Comments
var a,i,k,sum:integer;
T:array[1..10]of integer;
begin
k:=1;
for i:=1 to 10 do read(T[i]);
for i:=1 to 10 do begin
if(T[i]mod 2=0)then k:=k*T[i];
if(T[i]>5)then sum:=sum+t[i];
end;
write(sum,' ',k);
end.