program mass; uses crt; var n, i, j, max_i, max_j, min_i, min_j :integer; a : array[1..100,1..100] of integer; max, min : integer; begin clrscr; write("Razmer Massiva: "); readln(n); for i:=1 to n do begin for j:=1 to n do begin write(" a[",i,",",j,"]="); read(a[i,j]); end; writeln; end; max:=a[1,2]; min:=a[2,1]; max_i:=2; max_j:=1; min_i:=1; min_j:=2; for i:=1 to n do for j:=1 to n do

продолжение: begin if (i<j)and(a[i,j]>max)and(a[i,j]mod 2=0) then begin max:=a[i,j]; max_i:=i; max_j:=j; end; if (i>j)and(a[i,j]<min) then begin min:=a[i,j]; min_i:=i; min_j:=j; end; end; writeln("MAX=",max," INDEX: ",max_i,",",max_j); writeln("MIN=",min," INDEX: ",min_i,",",min_j); writeln("NEW MASSIV:");

продолжение: a[max_i,max_j]:=min; a[min_i,min_j]:=max; for i:=1 to n do begin for j:=1 to n do begin write(a[i,j]:3) end; writeln; end; readkey; end.

Nistel89, ого! Это где тебе такую задачу дали?

.3pf., на учебной практике! Это еще фигня. Препод охренел, сказал, хошь четверку напиши игру виселицу с графикой! А одногруппнику моему сказал пиши игру Танчики, как на Денди. Я хочу исходник Виселицы найти, если кто-нибудь знает где можно скачать, напишите пожалуйста!

Nistel89, Полный пипец. Если напишеш даш посмотреть?

.3pf., ты шутишь что-ли? Я не смогу написать такое! Но если найду исходник, то тогда напишу!

ishodniki.ru

hard13, спасибо, но там я видел только готовую игру, а исходника не нашел.

.3pf., нашел исходник игры виселица! www.ishodniki.ru/base/Pascal/hangman.zip Только не поверит мне препод что это я написал! Тем более около 1000 строк! БУдем искать дальше

Люди, помогите решить задачку!!!)))дан двумерный массив, отсортировать элементы массива ниже побочной диагонали. Плиззз.

Cooler69, как отсортировать? Просто вывести внизу строчку с елементами под диагональю по порядку нарастания?