Const nx=30; mx=30;var r:array[1..nx,1..mx] of integer;i,j,n,m,k,min:integer; beginrandomize;write('Введите n и m: ');readln(n, m); writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to m dobeginr[i,j]:=random(78)-17;write(r[i,j]:4);end;writeln;end;min:=100;for i:=1 to n do beginfor j:=1 to m do beginif min > r[i,j] then beginmin := r[i,j];k:=j;end;end;write(' min =':8,min:4,' k= ',k:3);writeln; min:=100;k:=0;end;end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
