Помогите пожалуйста! Составить программу Задача: В массиве 10 чисел определить...

Question

Помогите пожалуйста! Составить программу Задача: В массиве 10 чисел определить произведение четных, сумму больших 5.

Answer 1

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.