Вмассиве из 15 положительных целых чисел последний элемент заменить произведением всех четных элементов массива.

var a:array [1..10] of integer;

i,j:integer;

begin

 j:=1;

 for i:=1 to 10 do a[i]:=random(10);

 writeln ('Массив:');

 writeln (a);

 for i:=1 to 10 do

 if (a[i] mod 2=0) and (a[i]<>0)  then j:=j*a[i];

 a[10]:=j;

 writeln ('ответ:');

 writeln (a);

end.