Значки 25 мм - Трава и др.

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