Программа в делфи с матрицей

[Jook23]

Здравствуйте. Программу в делфи:

"Дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих:

- выше главной диагонали;
- ниже главной диагонали;
- выше и ниже побочной. "

[Jook23]

не знает никто, как решить?

[Stilet]

Почему не знает? Я знаю.

[gaw4]

"Здравствуйте. Программу в делфи:" !!!
"Почему не знает? Я знаю." 5+

[Jook23]

напишите мне пожалуйста ее =)

[Sciv]

А Вы в раздел:

Работа с матрицами и списками. Типичные задачи. Теория.

этой ветки форума загляните - там 100% найдутся ответы на Ваши вопросы

[Jook23]

нет там паскаль, мне нужно делфи

[Stilet]

напишите мне пожалуйста ее =)

Пожалуйста:

const n=10;
var a:array[1..n,1..n] of integer; e,r,q,w,i,j:integer;
begin
 for i:=low(a) to high(a) do begin
   for j:=low(a[i]) to high(a[i]) do begin
     a[i]:=i*j;
     if a[i]=0 then begin
      if (j>i) then inc(q) else if (j<i) then inc(w) else
      if (j<n-i-1) then inc(e) else if (j>n-i-1) then inc(r) else
     end;
   end;
 end;
end.

Суммы:
q - ниже главной
w - Выше главной
e - выше побочной
r - ниже побочной
Если ничего не напутал.

[Sciv]

нет там паскаль, мне нужно делфи

однако...

Stilet, ты не понял - ему нужно в Delphi!

[Stilet]

ты не понял - ему нужно в Delphi!

Наоборот, понял.
Присмотрись к коду - узри в нем изюминки Делфи, коих не было в классическом паскале.