Предмет: Информатика,
автор: dox1g
Задан двумерный массив 4*4.Получить одномерный массив элементами которого будут элементами главной диагонали двумерного массива
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
На бейсике там не влезло
Автор ответа:
0
Это не "там не влезло", а "я не умею пользоваться клавиатурой и копипастить, поэтому привёл условие задачи не полностью".
Автор ответа:
0
Нет такое полное условие
Автор ответа:
0
мда... Вы еще и знаками препинания пользоваться не умеете
Похожие вопросы
Предмет: Химия,
автор: Аноним
Предмет: Русский язык,
автор: Arishasw0d
Предмет: Физика,
автор: stalin242006
Предмет: Математика,
автор: tuman65
Предмет: Химия,
автор: Nikk1326