Найти первый и последний, если читать матрицу по столбцам, элементы - Pascal ABC

[pasterr]

Дано матрицу K(O,S). Найти первый и последний, если читать матрицу по столбцам, элементы, значение которых равны значению минимального элемента матрицы, и изменить их значение: первый удвоить, а последний утроить.

Program Matrix;
const o=5; s=5;
Var K:array [1..o,1..s] of integer;
min:integer;
i,j:integer;
Begin
randomize;
for i:=1 to o do
for j:=1 to s do
K[i,j]:=random(100);
begin
for i:=1 to o do 
begin
for j:=1 to s do
write(K[i,j]:5);
writeln;
end;
end;
begin
min:=K[1,1];
for i:=1 to o do
for j:=1 to s do
begin
if K[i,j]<Min then Min:=K[i,j];
end;
end;
begin
for i:=1 to o do
   for j:=1 to s do
   begin
   if K[j,i]=Min then
writeln('Min = ',min);
end;
end;

А что дальше?

[Aleksandr H.]

Сообщение от pasterr

А что дальше?

Научится пользоваться поиском по форуме

http://www.programmersforum.ru/showthread.php?p=1641727