Переформировать двумерный массив в одномерный - Turbo Pascal
Формулировка задачи:
Задача 8
Переформировать двумерный массив:
в одномерный: (2, 7, -1, 0, 4, 5, 7, -5, 6).
Решение задачи: «Переформировать двумерный массив в одномерный»
textual
Листинг программы
const a: array [1..3, 1..3] of integer = ((2, 7, -1),
(0, 4, 5),
(7, -5, 6));
var b: array [1..9] of integer absolute a;
i, j: integer;
begin
writeln('Matrix:');
for i := 1 to 3 do
begin
for j := 1 to 3 do write(a[i, j]:3);
writeln
end;
writeln('Vector:');
for i := 1 to 9 do write(b[i]:3);
readln
end.