Матрицы. Тексты программ
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Заполнение матрицы случайными числами и вывод
const
SzM = 10;
SzN = 10;
var a: array [1..SzM,1..SzN] of integer;
begin
var M := 4;
var N := 5;
for var i:=1 to M do // Заполнение
for var j:=1 to N do
a[i,j] := Random(100);
writeln('Элементы матрицы: ');
for var i:=1 to M do // Вывод
begin
for var j:=1 to N do
write(a[i,j]:4);
writeln;
end;
end.