Двумерный массив

[Wi1D]

Подскажите пожалуйста срочно-КАК НАЙТИ И ПОМЕНЯТЬ МЕСТАМИ 2 МИНИМАЛЬНЫХ ПОЛОЖИТЕЛЬНЫХ ЧИСЛА ИЗ МАССИВА заранее спасибо

[Wi1D]

как удалить тему?

[StudentPolitech]

Я не понял так надо отвечать

[Wi1D]

да!!конечно надо!

[StudentPolitech]

Ты хоть исходник написал надеюсь или решил наобум

[Wi1D]

Вот начал писать
rogram KyPCoBuK;
Uses CRT;
const max=100;
type
Myarr=array[0..max,0..max] of integer;
var
a:myarr;
n,m,i,j,x,mins,minm:integer;
Begin;
ClrScr;
write('CkoJlbKo CTPOK=');
readln(n);
write('CkoJlbKo CTOJlboB=');
readln(m);
if(n>max) or (m>max) then writeln('OLLIubKA') else
begin
if(n<=0) or (m<=0) then writeln('OLLIubKa') else
begin
for i:=1 to n do
for j:=1 to m do
begin
write('BBEDu a[',i,';',j,']=');
readln(a[i,j]);
end;
end;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>0 then
{--------------------------------------------------------}
mins:=999;
minm:=1;
begin
if a[i,j]<mins then
begin mins:=a[i,j];
end;
if mins>minm then
begin
x:=mins;
mins:=minm;
minm:=x;
end;
end;

writeln(minm);
writeln(mins);
readkey
end.

[Wi1D]

но он не работает(((

[Wi1D]

я это только пытаюсь найти....а местами поменять смогу думаю...

[StudentPolitech]

А какой язык то С++?

[StudentPolitech]

Язык то какой С++