Паскаль.Квадратную матрицу, размерностью не более 11, вывести на экран. Элементы и целые числа задаются случайным образом.Срочно.

1

Ответы и объяснения

2013-03-02T17:30:51+04:00

Program Zadacha;
var
    matriza: array[1..11, 1..11] of integer;
    i, j : integer;
Begin
    randomize;

    for i:=1 to 11 do
        for j:=1 to 11 do
            matriza[i][j] := random(10);
    
    for i:=1 to 11 do
    begin
        for j:=1 to 11 do
            Write(matriza[i][j], ' ');
        WriteLn('');
    end;
    
    
    ReadLn;
End.