Выяснить являются ли элементы, расположенные ниже главной диагонали, нулями

@Ours21 · Регистрация: 15.11.2012

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

Задана квадратная матрица, минимальный размер которой 4 на 4. Выяснить являются ли элементы расположенные ниже главной диагонали нулями

@CodeR · 25.01.2013, 10:00

Pascal

f:=true;
For i:=1 to n do
 For j:=1 to i-1 do
  if A[i,j]<>0 then f:=false;
writeln(f);

@Ours21 · 25.01.2013, 17:28 **[ТС]**

А можешь в полной форме представить

@CodeR · 26.01.2013, 08:37

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

А можешь в полной форме представить

Pascal

Var A:array[1..20,1..20] of integer;
    i,j,n:integer;
    f:boolean;
Begin
    write('Введите N: ');readln(n);
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(2);
        write(A[i,j]:4);
      End;
      writeln;
    End;
    f:=true;
    For i:=1 to n do
     For j:=1 to i-1 do
      if A[i,j]<>0 then f:=false;
    writeln(f);
End.

@Ours21 1 / 1 / 0 Регистрация: 15.11.2012 Сообщений: 51
		1
	Выяснить являются ли элементы, расположенные ниже главной диагонали, нулями 25.01.2013, 09:02. Показов 570. Ответов 3 Метки нет (Все метки) Задана квадратная матрица, минимальный размер которой 4 на 4. Выяснить являются ли элементы расположенные ниже главной диагонали нулями 0

@Ours21 1 / 1 / 0 Регистрация: 15.11.2012 Сообщений: 51
	25.01.2013, 17:28 [ТС]	3
	А можешь в полной форме представить 0

	26.01.2013, 08:37

Опции темы