Задание на паскале (срочно)

[racoon]

Ребят, доброго времени суток, прошу помощи в решении данной задачи

необходимо ввести матрицу far порядка m
затем найти количество и индексы элементов главной диагонали равных первому элементу соответствующих строк.

матрица должна забиваться в ручную

заранее спасибо

[Stilet]

Ну дык сам то как предполагаешь делать?

[racoon]

никак не предполагаю, собственно за тем к Вам и обратился, уважаемые программисты

[racoon]

и желательно как можно быстрее =(

[Stilet]

ТОгда поясни:
far - это название матрицы?
порядок m это кол-во элементов или вложенностей?

[alex_fcsm]

Впредь такого больше не пишите

и желательно как можно быстрее =(

uses crt;
const m=5;
var a:array[1..m,1..m] of integer;
    i,j,count:integer;
    
begin
for i:=1 to m do
 for j:=1 to m do
  read(a[i,j]);
clrscr;
for i:=1 to m do
 begin
   for j:=1 to m do
    write(a[i,j]:4);
   writeln;
 end;
 count:=0;
for i:=1 to m do
 if a[i,i]=a[i,1] then begin
                        writeln('[',i,',',i,']');
                        inc(count);
                       end;
writeln(count);
end.

[racoon]

Stilet, far - название матрицы, элементов, кажется
alex_fcsm, благодарю Вас за столь оперативную работу, просто уж очень время поджимает =)

[racoon]

а каким образом здесь забивается матрица?

[alex_fcsm]

а каким образом здесь забивается матрица?

for i:=1 to m do
 for j:=1 to m do
  read(a[i,j]);

[Selestis]

for j:=1 to m do
read(a[i,j]);
здесь только один блок со считыванием данных