Дан массив 7х9. Записать элементы матрицы в массив из 63 элементов - Turbo Pascal
Формулировка задачи:
дан массив 7x9 элемента заполненный случайными числами заполнить его элементами массив 63
Код к задаче: «Дан массив 7х9. Записать элементы матрицы в массив из 63 элементов - Turbo Pascal»
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.
6 голосов, оценка 4.333 из 5
СОХРАНИТЬ ССЫЛКУ