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

Question

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

Comments

вот-вот, сейчас мой ответ удалят, а другие так и будут ответы писать на Паскалях, Си и т.п.

---

Это не я так сформулировал.такая задача в книге

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.

Comments

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

---

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

---

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

---

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