Program Himer2; Var a : array [1..5,1..5] of integer; p, max, min : integer; i, j, IndMax, IndMin : byte; BEGIN Writeln ("Введите массив 5х5"); for i := 1 to 5 do for j := 1 to 5 do Read (A[i,j]); max := a[1,1]; IndMax := 1; min := a[1,1]; IndMin := 1; for i := 1 to 5 do for j := 1 to 5 do begin if a[i,j] > max then begin max := a[i,j]; IndMax := i; end; if a[i,j] < min then begin min := a[i,j]; IndMin := i; end; end; if IndMax <> IndMin then begin for j := 1 to 5 do begin p := a[IndMax,j]; a[IndMax,j] := a[IndMin,j]; a[IndMin,j] := p; end; for i := 1 to 5 do begin Writeln; for j := 1 to 5 do Write (a[i,j]," "); end; end else Writeln ("Минимальный и максимальный элементы находятся в одной строке."); END.

K!LT, большое спасибо, выручил очень! FOB!O не надо считать меня за двоечника, я по болезни пропустил много, теперь вот догоняю в спешном порядке.

Xимep, это "много" учится за час-два(максимум). а то и за 15-20 минут. google.com тебе в помощь.

Тема оч полезнаю. я в паскале неособо. А вот Килт спас меня от двойки по информатике. И теперь меня допустят к экзаменам. К тому же тут люди более сложное програмируют. а задачки эт на верно фигня для них.

К таму же, такой темы нету. Она как тема поиск игр, тока здесь люди благодарны по гроб жизни.

Liu kang, такая тема есть! В разделе работа и учёба.

Liu kang, дык есль те лень полистать темы! То те вобще Паскаль не осилить! Магу дать хорошую электронную книгу каму нада! 500 кб с ресунками и тд. Там короче как азбука читай и врубайся! Ы! Афтор Зелинский

FOB!O, Скинь,если не трудно:) Тебе спасибо скажут:)

Ну на те читайте! Вроди по моему книга оч хорошая! forum.s-c.ru/download/108010_TPascal_7.exe вот сыль

FOB!O, очень хорошая книга не может быть в самом плохом формате

Привет всем. помогите с задачкой. Дан массив целых чисел,найти минимальный елемент массива и его номер. заранее благодарен)))))

duke, дык ты почитай её и будешь удивлён!