Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 95 стр.

по очевидным причинам невозможна. Количество измерений формально не
ограничено, но сумма размеров всех компонентов массива не должна превос-
ходить 64К.

     3.2. Ввод–вывод двумерного и многомерного массива
     Многомерные массивы, как и одномерные, можно задавать одним из
способов ввода данных в программу.
     Значения элементов двумерных массивов выводят на экран и вводят с
клавиатуры, как правило, по строкам, т. е. сначала все элементы первой стро-
ки, затем второй и т. д. Это удобно выполнять при помощи вложенных инст-
рукций for.
     Программа Lab7_5; выводит на экран значения элементов массива по
строкам.

    Задача 5
    Ввести в матрицу Prod размером 3 строки, 4 столбца следующие значения:
    1-я СТРОКА – 1, 1, 1, 1;
    2-я СТРОКА – 2, 2, 2, 2;
    3-я СТРОКА – 3, 3, 3, 3.
    Умножить на 3 каждый элемент массива и получить результат на экране
дисплея распечатанным по строкам.
    PROGRAM Lab7_5;
    Uses Crt;
    var
     Prod : array[1..3, 1…4] of Integer;
     i, j : Integer;
     BEGIN {1}
     ClrScr;
     Textcolor(Yellow);
     WriteLn(' ***********Ввод по строкам **********');
     Textcolor(Green);
            For i : = 1 To 3 Do            Циклы ввода матрицы
            begin {2}
            WriteLn (' Введи строку ', i);
            For j : =1 To 4 Do
            Read(Prod [i, j] );
            end; {2}
     Textcolor (lightred);
     WriteLn ('*********** Вывод по строкам **********');
            For i : =1 To 3 Do             Циклы вывода матрицы
            begin{3}
            For j : = 1 To 4 Do
            Write (Prod [i, j]*3);
            WriteLn;
            end; {3}
                                    95