Question

Задан двумерный массив 4*4.Получить одномерный массив элементами которого будут элементами главной диагонали двумерного массива

Answer 1

Var
  m : array[1..4,1..4] of Integer;
  m_new : array[1..4] of Integer;
  i,j : Integer;
Begin
  For i:=1 to 4 do
  Begin
    For j:=1 to 4 do
    Begin
      m[i,j]:=Random(100);
      Write(m[i,j]:5);
      If i=j then m_new[i]:=m[i,j];
    end;
    Writeln;
  end;
  Writeln('Главная диагнональ: ');
  For i:=1 to 4 do Write(m_new[i]:5);
  Writeln;
end.

Answer 2

На бейсике там не влезло

Answer 3

Это не "там не влезло", а "я не умею пользоваться клавиатурой и копипастить, поэтому привёл условие задачи не полностью".

Answer 4

Нет такое полное условие

Answer 5

мда... Вы еще и знаками препинания пользоваться не умеете