uses crt; const n=4; m=4; var a:array[1..n,1..m]of integer; i,j,maxi,maxj:integer; begin clrscr; randomize; writeln('Исходная матрица'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:3); end; writeln; end; maxi:=1; maxj:=1; for i:=1 to n do for j:=1 to m do if a[i,j]>a[maxi,maxj] then begin maxi:=i; maxj:=j; end; writeln('MAX = ',a[maxi,maxj],' в строке ',maxi); for j:=1 to m do a[maxi,j]:=a[maxi,maxj]; writeln('Преобразованная матрица'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:3); writeln; end; readln; end.
среда, 28 апреля 2010 г.
Матрица 4 на 4
Дана матрица А 4х4 Найти строчку, в где находиться максимальный элемент массива и заменить все элементы в этой строке максимальным.
Подписаться на:
Комментарии к сообщению (Atom)
Комментариев нет:
Отправить комментарий