31.05.2008, 19:47
общий
это ответ
Здравствуйте, Marina korolyova!
Решение в приложении. Пояснения минимальны, т.к. просто нечего объяснять.
Приложение:
uses crt;var a:array[1..20,1..20]of integer; n,m,i,j,min:integer;beginclrscr;write(‘Kolichestvo strok= ‘);readln(n);write(‘Kolichestvo stolbcov= ‘);readln(m);randomize;Writeln(‘Matrica:‘); {создаем матрицу}for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(21)-10; write(a[i,j]:4); end; writeln; end;readln;for j:=1 to m do begin min:=a[1,j]; {за мин примем первый элемент столбца} for i:=1 to n do begin if a[i,j]<min then begin min:=a[i,j]; {находим мин в столбце} end; end; writeln(‘min elem v stolbce ‘,j,‘=‘,min:3); end;readlnend.