Дан массив 7х9. Записать элементы матрицы в массив из 63 элементов - Turbo Pascal

Формулировка задачи:

дан массив 7x9 элемента заполненный случайными числами заполнить его элементами массив 63

Код к задаче: «Дан массив 7х9. Записать элементы матрицы в массив из 63 элементов - Turbo Pascal»

textual
var
  x: array [1..7, 1..9] of integer;
  y: array [1..63] of integer absolute x;
  i, j: integer;
 
begin
  Randomize;
  for i := 1 to 7 do
  begin
    for j := 1 to 9 do
    begin
      x[i, j] := Random(100);
      Write(x[i, j]:5);
    end;
    Writeln
  end;
  Writeln;
  for i := 1 to 63 do
    Write(y[i], ' ');
  Readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 4.333 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы