Question

Помогите решить задачку (Паскаль)

 

 

Дана матрица  B(4,4)

1)    Найти произведение положительных элементов среди элеметов рассположенных выше побочной диагонали матрицы  B.

2)    Найти минимальный элемент во втором столбце матрицы  B.

3)    Поменять местами найденный минимальный эелемент и значение третьего элемента в четвертой строке.

Answer 1

uses crt;
const n=4;
var b:array[1..n,1..n] of integer;
i,j,pr,k,t,min:integer;
begin
randomize;
pr:=1;
for i:=1 to n do
for j:=1 to n do
b[i,j]:=random(100)-50;
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:3);
writeln;
end;
writeln;
k:=1;
t:=3;
repeat
for i:=k to k do
for j:=1 to t do
if b[i,j]>0 then pr:=b[i,j]*pr;
inc(k);
t:=t-1;
until k=4;
writeln(pr);
min:=50;
for i:=1 to n do
for j:=2 to 2 do
if b[i,j]<min then begin min:=b[i,j]; k:=i; t:=j; end;
writeln(min);
writeln;
b[4,3]:=b[4,3]+b[k,t];
b[k,t]:=b[4,3]-b[k,t];
b[4,3]:=b[4,3]-b[k,t];
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:3);
writeln;
end;
writeln;
end.