Массив(((

[Wawancher]

Привет всем, помогите с массивом кто может...

[Stilet]

Легко. Показывай как кодом массив вводишь

[Wawancher]

Я ваще ниче не понимаю, no braine(((

[Mad_Cat]

контакты в профиле! welcome!

[NinaSSS]

попробуйте так

program massiv;
uses crt;

var a:array[1..10,1..10] of integer; b:array[1..10] of integer;
i,j,k,s,n,m,max,x,y,t :integer; p:real;
 begin  clrscr;
 randomize;
 readln(n,m);
 for i:=1 to n do begin
 for j:=1 to m do begin
 a[i,j]:=random(10);
 end; end;
  for i:=1 to n do begin
 for j:=1 to m do begin
write( a[i,j]:3); end; writeln; end;
max:=-1000;
 for j:=1 to m do begin
 for i:=1 to n  do begin
  if j mod 2=0 then if a[i,j]>max then begin max:=a[i,j]; x:=i;y:=j; end; end;end;
  t:=a[x,y];
  a[x,y]:=a[n,m];
  a[n,m]:=t;
  p:=1;
  for j:=1 to m do begin
 for i:=1 to n  do begin
 if j=4 then p:=p*(1+cos(1-(1/a[i,4])));end;end; p:=p+8.3;

  writeln('max=',max);    writeln('proizveden=',p:5:5);
  writeln('rezultir matrica');
     for i:=1 to n do begin
 for j:=1 to m do begin
write( a[i,j]:3); end; writeln; end;
  end.

[Wawancher]

Спасибо, ща глянем)