Delphi - массивы

[leshaiitp]

у меня PascalABC - школьный можно сказать. там матрица не выводиться, происходит бесконечный ввод данных. пробовал со входом в программу, не сказать, чтобы что-то изменилось

понял как ты вводишь. разобрался теперь.

[evg_m]

evg_m боюсь, что я не совсем понял, ибо долго думал, куда и какие циклы вписать по этой схеме

// for i:=1 to M do begin 
// for i:=1 to N do begin 
A:=M[i,j]; //1.1. берем элемент (i, j) (см п.0)
isosob:=true; //2.0. изначально считаем его особым (isosob:=true)
for k:=1 to i-1 do //2.1. проверяем все элементы левее (k=1..i-1, j) 
begin
  if M[k,j]<A then // на выполнение условия <  (продолжаем считать особым и ничего не делаем)
  else isosob:=false; // НЕ выполнение хотя бы одного означает, это НЕ ТО что нам нужно (теперь знаем что он не особый и ставим false)

// или же просто if not (M[k,j]<A) then isosob:=false;
// или так if M[k,j]>=A then isosob:=false;

end;

if (k<i) and not (M[k,j]<A) then isosob:=false;  //  2.1. если (k<i) слева то проверяем на <

[leshaiitp]

и так, evg_m.
сразу запускаем пробег по строкам и столбцам
присваиваем А нашу матрицу
особый элемент один или их несколько? нужно количество "особых" элементов
запускаем проверку по строке i, как я понял, до i-1 - это я не понял... может до N-1. т.е. до предпоследнего элемента?
если k до предпоследнего элемента меньше, то все хорошо. если нарушается равенство, то элемент не особый

и как правильно оформить тело программы? begin...end; чем руководствоваться?

и к примеру, если задать сразу, что мы проверяем именно первый элемент матрицы [1,1] то будет работать программа или она сама выбирает элементы для проверки

for i:=1 to N do
for j:= to M do
isosob:=true;
for k:=1 to M-1 do // берем первый элемент матрицы и проверяем до последнего
    if A[i,k]<A[i,M-1] then // и ничего не делаем
    else isosob:=false; // тогда здесь особых нету...

ммм?

[evg_m]

A:=M[i,j]; //1.1. берем элемент (i, j) (см п.0)
isosob:=true; //2.0. изначально считаем его особым (isosob:=true)

для него выполняем ВСЕ проверки (пп.2.хх)
ПОСЛЕ проверок смотрим что за элемент

if isosob then count_osob:=count_osob+1; //действия для особого 
else ; //действия для НЕ особого

[leshaiitp]

A:=M[i,j];
isosob:= true;

for i:=1 to N do
for j=1 to M do

for k:=1 to M do
if (k<i) and not (M[k,j]<A) then isosob:= false;
if (k>i) and not (M[k,j]>A) then isosob:= false;
if (k=i) then Break;

if isosob then os:=os+1 else Break;

...........................
for k:=1 to i-1 do
if M[k,j]<A then isosob:=true else isosob:= false;
for k:=i+1 to M do
if M[k,j]>A then isosob:=true else isosob:= false;