Хорошая швейцарская копия часов - A. Lange & Sohne
type tmas array[1..5,1..5] of real;var a,b,c tmas;beginfor i:=1 to dofor j:=1 to doreadln(a[i,j]);for i:=1 to dofor j:=1 to dob[i,j]:=sin(j+i); for i:=1 to dobeginmax:=c[1,i];for j:=1 to doif c[j,i]>max then begin max:=c[j,i] ii:=i; jj:=j; endl;temp:=c[1,i];c[1,i]:=max;c[jj,ii]:=temp;end;end.
type tmas array[1..5,1..5] of real;var a,b,c tmas;max, temp real;i,j,jj,ii integer;beginfor i:=1 to dofor j:=1 to doreadln(a[i,j]);for i:=1 to dofor j:=1 to dob[i,j]:=sin(j+i); for i:=1 to dobeginmax:=c[1,i];for j:=1 to doif c[j,i]>max then begin max:=c[j,i] ii:=i; jj:=j; end;temp:=c[1,i];c[1,i]:=max;c[jj,ii]:=temp;end;end.Здесь не описывал переменные для своего удобства, компиляторе то их надо описывать;).
Пишите свои варианты ведь легенд великое множество!
переводе латинского: победа.Виктория часто похожа на отца.Ленива несколько медлительна.играх детьми редко бывает заводилой довольствуется обычно пассивной ролью.Долго не хочет учиться читать, просит родителей почитать ей.
type tmas array[1..5,1..5] of real;var a,b,c tmas;beginfor i:=1 to dofor j:=1 to doreadln(a[i,j]);for i:=1 to dofor j:=1 to dob[i,j]:=sin(j+i); for i:=1 to dobeginmax:=c[1,i];for j:=1 to doif c[j,i]>max then begin max:=c[j,i] ii:=i; jj:=j; endl;temp:=c[1,i];c[1,i]:=max;c[jj,ii]:=temp;end;end.