Виктория, вам бы следовало открыть личку, если настолько нужны эти задачи, вот ваш пост увидел группе Программисты PASCAL на стене, хотел написать эти задачки уткнулся приветливое такое сообщение.................................
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.Здесь не описывал переменные для своего удобства, компиляторе то их надо описывать;).
