Сгенерировать массив m из 10 элементов.каждый элемент-случайное число от 0 до 20. сгенерированный массив вывести на экран в виде таблицы из двух строк по пять элементов в каждой а)найти сумму всех элементов б)вывести на экран номера элементов,значения которых четны в)найти произведение этих элементов г)найти сумму a[1]*a[2]*+a[2]*a[3]+a[3]*a[4]+*a[10];
var a: array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(21);
If a[i] mod 2=0 then writeln(i);{задание б}
end;
P:=1;
S:=0;
X:=0;
for i:=1 to 9 do
begin
S:=s+a[i];
P:=p*a[i];
X:=x+a[i]*a[i+1];
end;
P:=p*a[10];
S:=s+a[10];
Writeln(s,p,x);{задания а, в, г соответственно}
end.