Задан целый (integer) двумерный массив размерностью 3 * 4.

Program Proga
uses crt;
var a: array [1..3] of [1..4] of integer; par_kilk,dob,max,min,ser,i,j:integer;
begin
clrscr;
for i:=1 to 3 do
for j:=1 to 4 do
a[i,j]:=random(10);
for i:=1 to 3 do
for j:=1 to 4 do
if odd(a[i,j])=false then
par_kilk:=par_kilk+1;
writeln('K-CTb napHux: ',par_kilk);
dob:=1;
for i:=1 to 3 do
for j:=1 to 4 do
if a[i,j]>=2 then
dob:=dob*a[i,j];
writeln('go6yTok: ',dob);
max:=a[1,1];
min:=a[1,1];
for i:=1 to 3 do
for j:=1 to 4 do
begin
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
writeln('MakcuMa/\bHuu e/\eMeHT: ',max);
ser:=round((min+max)/2);
writeln('CepegHe Mi# MiHiMa/\bHuM s MakcuMa/\bHuM:',ser);
writeln;
writeln('Made by Robert Menus, 2011');
readln;
end.

program Dekio;
const
n=3;
m=4;
var
arr :array[1..n,1..m] of integer;
i,j,kol :integer;
begin
randomize;
writeln('Èñõîäíûé ìàññèâ');
for i:=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:=random(10);
write(arr[i,j]:4);
if not odd(arr[i,j]) then
inc(kol);
end;
writeln;
end;
writeln('Êîëè÷åñòâî ïàðíûõ ýëåìåíòîâ ',kol);
end.

program Dekio;
const
n=3;
m=4;
var
arr :array[1..n,1..m] of integer;
i,j,pr :integer;
begin
randomize;
pr:=1;
writeln('Èñõîäíûé ìàññèâ');
for i:=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:=random(10);
write(arr[i,j]:4);
if arr[i,j]>=2 then
pr:=pr*arr[i,j];
end;
writeln;
end;
writeln('Ïðîèçâåäåíèå ýëåìåíòîâ ',pr);
end.

program Dekio;
const
n=3;
m=4;
var
arr :array[1..n,1..m] of integer;
i,j,max :integer;
begin
randomize;
max:=arr[1,1];
writeln('Èñõîäíûé ìàññèâ');
for i:=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:=random(10);
write(arr[i,j]:4);
if arr[i,j]>max then
max:=arr[i,j];
end;
writeln;
end;
writeln('Íàèáîëüøèé ýëåìåíò ',max);
end.