ProgramEx_9_1;
Uses Crt;
TypeMas = array [1..4, 1..5] of integer;
{объявляем тип массив из 4 строк и 5 столбцов}
Var
B : Mas; { переменная B типа массив }
P: real; {произведение каждого столбца}
i, j: integer; {индексы массива }
Begin
ClrScr; {очищение экрана}
Textcolor(1); {цвет текста синий}
Randomize;
For i:=1 to 4 do begin
For j:=1 to 5 do begin
B [i, j]:=random(200)-100;
Write(B [i, j]);
End;
Writeln;
End;
For j:=1 to 5 do begin
P:=1;
For i:=1 to 4 do begin
P:=P*B[ i, j];
End;
Writeln( ‘Произведение ‘, j ,’ столбца ’, P);
End;
Readln;
End.
Алгоритм обработки двумерного массива
По столбцам к задаче 9.1.
