Пример выполнения задания 6

Дана матрица a (4, 4). Получить матрицу b (4, 4) по правилу:

а также произведение элементов строки, содержащей наименьший элемент матрицы.

program lab4;

uses crt;

var к, i, j: integer;

b, a: array [1.. 4, 1.. 4] of real;

p, min: real;

begin clrscr;

writeln (¢введите матрицу d ¢);

for i:=1 to 4 do

for j:=1 to 4 do read (a [ i, j ]);

min:= a [l,1]; k:=1;

{формирование матрицы b и в этом же цикле}

{поиск минимального элемента и номера строки,

в которой он находится}

for i:=1 to 4 do

for j:=1 to 4 do

begin

if a [ i, j ] > 0 then b [ i, j ]:=2* a [ i, j ] else

b [ i, j ]:=0;

if a [ i, j ] < min then

begin min:= a [ i, j ];

к:= i

end

end;

p:=1;

for j:=1 to 4 do

p:= p*a [ k, j ];{вычисление произведения элементов

k -ойстроки}

writeln (¢вывод b (4, 4)¢);

for i:=1 to 4 do

begin

for j:=1 to 4 do write(b [ i, j ]:8:2);

writeln

end;

writeln (¢минимальный элемент = ¢, min:8:2);

writeln (¢произведение элементов ¢, k,¢ строки =¢, p:5:2)

readkey

end.

Тема 7