Форум школьного программирования , решение задач на турбо паскале , решебник по информатике |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Форум школьного программирования , решение задач на турбо паскале , решебник по информатике » Решение задач на turbo pascal » Написать программу произвольную матрицу размерностью 4х4!
Написать программу произвольную матрицу размерностью 4х4!
const
n = 4;
var
x: array [1..n, 1..n] of integer;
i, j: byte;
begin
Randomize;
for i := 1 to n do
begin
for j := 1 to n do
begin
x[i, j] := Random(9) + 1;
Write(x[i, j]:3);
end;
Writeln
end;
Readln
end.
Вы здесь » Форум школьного программирования , решение задач на турбо паскале , решебник по информатике » Решение задач на turbo pascal » Написать программу произвольную матрицу размерностью 4х4!