Переформировать двумерный массив в одномерный - 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.

Оцени полезность:

13   голосов , оценка 3.923 из 5
Похожие ответы