Двумерные массивы

[mimit]

Дан двумерный массив целых чисел:
1)Для каждой строки выяснить имеются ли в ней разные элементы.
2)Определить есть ли в нем столбец, состоящий только из отрицательных элементов
3)Определить: является ли он единичной матрицей.

const n=5;m=5;
var a:array [1..n,1..m] of integer;i,j:integer;

begin
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(10);
  for i:=1 to n do
  begin
  for j:=1 to m do
  write(a[i,j]:3);
  writeln;
  end;
  readln;
end.

[Sweta]

Если то что приведено здесь создавали сами,то

Определить: является ли он единичной матрицей.

очень просто
в цикле перебираем элементы массива главной диагонали и сравниваем их с 1, если встретим хотя бы одно неравенство, то два пути решения:
1 сообщаем, что матрица не единичная и выходим из цикла
2 Устанавливаем признак, что матрица не единична, доходим до конца цикла, после выхода анализируем флаг и выводим соответствующие сообщения.
Если флаг остался нулевым, то аналогично анализируем на 0 все остальные элементы.

[Serge_Bliznykov]

Sweta, Вы сами решили, что такое единичная матрица?

рекомендую ознакомится с определением на вики: Единичная матрица:

Едини́чная ма́трица — квадратная матрица, элементы главной диагонали которой равны единице поля, а остальные равны нулю.

[Sweta]

Хомутонула.

[mimit]

Сообщение от Serge_Bliznykov

Sweta, Вы сами решили, что такое единичная матрица?

рекомендую ознакомится с определением на вики: Единичная матрица:

Ну я знаю что такое Единичная матрица. Как правильно задачу решить? Сначала проверяю главную диагональ что она равна 1 а потом остальные элементы которые должны быть равны 0. На теории легко не знаю как код правильно написать. Главную диагональ я могу проверить

For i:=1 to n do
for j:=1 to n do
if a[i,i]=1 then

[Sweta]

Введите в программе некоторую пременную fl которая может принимать значение 0 или 1, т.е true или false и присвойте ей в начале значение 0 - false.
if a[i,i]=1 then продолжаем цикл, иначе fl присваиваем 1, по окончанию данного цикла анализ fl , если 1, то матрица не единичная, если 0, проверяем оставшиеся элементы на 0, аналогично проверке центральной диагонали. Я не знаю Паскаля.
Это должно выглядить так
Цикл1 От i= 1 до n
Цикл2 От j= 1 до n
Если элемент главной диагонали !=1 то fl =1
конец цикла 2
конец цикла 1
Если fl =1 то матрица не единичная
иначе
Цикл1 От i= 1 до n
Цикл2 От j= 1 до n
Если остальные элементы !=0 то fl =1
конец цикла 2
конец цикла 1
Если fl =1 то матрица не единичная


Остальные элементы !=0 это (a[i][j]!=0 & j!=i)

[mimit]

Я решил 2 задачу с остальными пока не могу разобраться

const N=5;
var a:array[1..N,1..N] of integer;
i,j,k1,k2:integer;
begin
randomize;
for i:=1 to N do
for j:=1 to N do
begin
a[i,j]:=(-100)+random(200);
write(a[i,j]:4);
if j=N then writeln;
end;
for j:=1 to N do
for i:=1 to N do
begin
if a[i,j]<0 then inc(k1);
if (i=N) and (k1<N) then k1:=0 else
if (i=N) and (k1=N) then
begin
k2:=k2+1;
k1:=0;
end;
end;
if k2>0 then writeln('Takih stolbcov ',k2)
else writeln('Takih stolbcov net');
end.