Матрица

[Artimbulidor]

Приветствую всех форумчаненов ...

Дана матрица A(10,10)
Найти среднее геометричесмкое элементов матрицы, лежащих выше главной диогонали и удовлетворяющих условию
5<A[i,j]<=12

А нито из участников форума может делать блок схемы а то я с ними вообще не дружу ....если кто может то постучитесь ко мне в асю плиззз...467790931

во тсобственно то что у меня получилось:
посмотрите че нетак

k:=1;
z:=0;
p:=1;
while k:=10 do
for i:=k to 10 do 
for j:=1 to do begin
if (a[i,j]>5)and (a[i,j]<12) then 
begin
p:=p*a[i,j];
z:=z+1;
end;
sr:=exp(1/z*ln(p));
writeln(sr);
end.

[puporev]

p:=1;z:=0;
for i:=1 to 10 do 
for j:=1 to 10 do
if (j>i)and(a[i,j]>5)and (a[i,j]<12) then //j>i признак выше главной диагонали
    begin
      p:=p*a[i,j];
      z:=z+1;
   end;
sr:=exp(1/z*ln(p));
writeln(sr);
end.

[Artimbulidor]

Благодарю....

а это лишнее значит while k:=10 do?

[puporev]

а это лишнее значит while k:=10 do?

А Вы не понимаете, что это просто бессмыслица, набор символов?

[Artimbulidor]

ну я же не профессионал в паскале ..я только начинающий

[puporev]

Программа и блок-схема.