Задача 9.1.

Заполнить двумерный числовой массив B [4, 5] целыми числами. Найти произведение элементов каждого столбца массива.

Математическая формулировка задачи:

Чтобы определить такое произведение, нужно организовать обработку двумерного массива по столбцам. Для каждого столбца вычисляется свое произведение (всего должно получиться 5 ответов, так как имеется 5 столбцов). Будем вычислять произведение каждого столбца при помощи одной и той же переменной Р. Необходимо учесть, что при переходе в каждый новый столбец произведение должно вычисляться сначала, то есть значение Р надо сбрасывать в 1. Чтобы произведение предыдущего столбца при этом не пропадало, необходимо выводить на экран ответ (произведение каждого столбца) сразу после его вычисления, то есть во внешнем цикле. Внешний цикл (по столбцам) выполняется 5 раз, поэтому у нас получится 5 ответов.

Алгоритм обработки двумерного массива по столбцам

к задаче 9.1
Текст программы к задаче 9. 1.

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.