2. вычислите среднее арифметическое значение элементов двухмерного массива а(8*9), больших заданного числа q.

Begin
// ввести значения массива а и значение Q
for i:=1 to 8
for j:=1 to 9
if a[i,j]>Q then
begin
 sum=sum+a[i,j];
 kol=kol+1;
end;
if kol>0 then
sr=sum/kol;
write('srednee= ',sr);
else
write('net takih chisel');
end.