Лекция: Пример выполнения задания 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