Составить одномерный массив из номеров строк матрицы, в которых по главной диагонали стоят нули

@Sneg v adu · Регистрация: 14.01.2015

Студворк — интернет-сервис помощи студентам

Ввести с клавиатуры квадратную матрицу. Составить одномерный массив из номеров строк этой матрицы, в которых по главной диагонали стоят нули. Домой приду, скину сотню на счет тому кто сделает

@CodeR · 14.01.2015, 11:32

Pascal

Const nmax=20;
Var A:array[1..nmax,1..nmax] of real;
    B:array[1..nmax] of byte;
    i,j,n,m:integer;
Begin
    Repeat
     write('Разменость матрицы: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    For i:=1 to n do
    Begin
      writeln('Введите ',N,' элементов строки ',i);
      For j:=1 to n do
       read(A[i,j]);
    End;
    writeln('Матрица');
    m:=0;
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(A[i,j]:6:2);
      writeln;
      if A[i,i]=0 then
      Begin
        m:=m+1;
        B[m]:=i;
      End;
    End;
    writeln('Массив');
    if m=0 then writeln('Нету на главной диагонали нулевых элементов')
     else For i:=1 to m do write(B[i],' ');
    readln;
End.

@Cyborg Drone · 14.01.2015, 12:22

Не по теме:

Сообщение от Sneg v adu

Домой приду, скину сотню на счет тому кто сделает

В бесплатных разделах форума это лишнее. По умолчанию помощь в таких разделах оказывается бескорыстно.

@Sneg v adu 0 / 0 / 0 Регистрация: 14.01.2015 Сообщений: 1
		1
	Составить одномерный массив из номеров строк матрицы, в которых по главной диагонали стоят нули 14.01.2015, 10:32. Показов 1379. Ответов 2 Метки нет (Все метки) Ввести с клавиатуры квадратную матрицу. Составить одномерный массив из номеров строк этой матрицы, в которых по главной диагонали стоят нули. Домой приду, скину сотню на счет тому кто сделает 0

@Cyborg Drone
	14.01.2015, 12:22 Составить одномерный массив из номеров строк матрицы, в которых по главной диагонали стоят нули #3
	Не по теме: Сообщение от Sneg v adu Домой приду, скину сотню на счет тому кто сделает В бесплатных разделах форума это лишнее. По умолчанию помощь в таких разделах оказывается бескорыстно. 0

Опции темы

Составить одномерный массив из номеров строк матрицы, в которых по главной диагонали стоят нули

Решение