PascalABC.NET 3.2, сборка 1387 от 20.02.2017 Внимание! Если программа не работает, обновите версию!
//const // MAX_ROW=5; // MAX_COL=8; begin var a:=MatrRandom(MAX_ROW,MAX_COL,10,99); a.Println(3); (var imax, var jmax, var imin, var jmin):=(0,0,0,0); for var i:=0 to MAX_ROW-1 do for var j:=0 to MAX_COL-1 do if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j) else if a[i,j]<a[imin,jmin] then (imin,jmin):=(i,j); for var i:=0 to MAX_ROW-1 do Swap(a[i,jmax],a[i,jmin]); Writeln('-'*3*MAX_COL); a.Println(3) end.
Для проверки работы программы снимите комментарии с первых трех строк.
Для быстрого перемещения курсора в пределах экрана можно использовать следующие клавиши и сочетания клавиш:
На один символ влево СТРЕЛКА ВЛЕВО На один символ вправо СТРЕЛКА ВПРАВО На одно слово влево CTRL+СТРЕЛКА ВЛЕВО На одно слово вправо CTRL+СТРЕЛКА ВПРАВО На один абзац вверх CTRL+СТРЕЛКА ВВЕРХ На один абзац вниз CTRL+СТРЕЛКА ВНИЗ К предыдущей строке СТРЕЛКА ВВЕРХ К следующей строке СТРЕЛКА ВНИЗ В конец строки END В начало строки HOME Если текст большой, то на экране будет видна только его часть, а весь он будет храниться в памяти компьютера. Существует режим прокрутки, позволяющий быстро вывести на экран части текста, находящиеся за его пределами. Это можно сделать с полос прокрутки, расположенных справа и внизу окна документа
Внимание! Если программа не работает, обновите версию!
//const
// MAX_ROW=5;
// MAX_COL=8;
begin
var a:=MatrRandom(MAX_ROW,MAX_COL,10,99); a.Println(3);
(var imax, var jmax, var imin, var jmin):=(0,0,0,0);
for var i:=0 to MAX_ROW-1 do
for var j:=0 to MAX_COL-1 do
if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j)
else
if a[i,j]<a[imin,jmin] then (imin,jmin):=(i,j);
for var i:=0 to MAX_ROW-1 do Swap(a[i,jmax],a[i,jmin]);
Writeln('-'*3*MAX_COL); a.Println(3)
end.
Для проверки работы программы снимите комментарии с первых трех строк.
На один символ влево СТРЕЛКА ВЛЕВО
На один символ вправо СТРЕЛКА ВПРАВО
На одно слово влево CTRL+СТРЕЛКА ВЛЕВО
На одно слово вправо CTRL+СТРЕЛКА ВПРАВО
На один абзац вверх CTRL+СТРЕЛКА ВВЕРХ
На один абзац вниз CTRL+СТРЕЛКА ВНИЗ
К предыдущей строке СТРЕЛКА ВВЕРХ
К следующей строке СТРЕЛКА ВНИЗ
В конец строки END
В начало строки HOME
Если текст большой, то на экране будет видна только его часть, а весь он будет храниться в памяти компьютера. Существует режим прокрутки, позволяющий быстро вывести на экран части текста, находящиеся за его пределами. Это можно сделать с полос прокрутки, расположенных справа и внизу окна документа