// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 unit MatInt;
interface
type Matrix=array[,] of integer;
function MatCreate(m,n:integer):Matrix; procedure MatPrint(a:Matrix;w:integer); procedure MatMax(a:Matrix;var x,imax,jmax:integer);
implementation
function MatCreate(m,n:integer):Matrix; // создает матрицу и инициализирует её нулями begin SetLength(Result,m,n); end;
procedure MatPrint(a:Matrix;w:integer); // выводит матрицу, отводя w позиций под элемент begin var n:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do begin for var j:=0 to n do Write(a[i,j]:w); Writeln end end;
procedure MatMax(a:Matrix;var x,imax,jmax:integer); // возвращает значение максимального элемента и его координаты begin imax:=0; jmax:=0; var n:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do for var j:=0 to n do if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j); Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1] end;
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 uses MatInt; begin var a:=MatCreate(5,8); var n:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do for var j:=0 to n do a[i,j]:=Random(-50,50); MatPrint(a,4); var irow,jcol,max:integer; MatMax(a,max,irow,jcol); Writeln('Максимальный А[',irow,',',jcol,']=',max) end.
Посадил дед репку и говорит:
— Расти репка сладкая-сладкая! Расти большая-пребольшая!
Выросла репка сладкая и большая-пребольшая.
Репка - русская народная сказка
Пошел дед репку рвать: тянет-потянет, вытянуть не может.
Репка - русская народная сказка
₽
До 30.04 — Месяц продаж CAMRY!
В Брянске МЕСЯЦ ПРОДАЖ. TOYOTA CAMRY на выгодных условиях в дни распродажи!
Узнать больше
toyota-bryansk.ru
Позвал дед бабку.Бабка за дедку,
Дедка за репку —
Тянут-потянут, вытянуть не могут.
Позвала бабка внучку.
Репка - русская народная сказка
Внучка за бабку,
Бабка за дедку,
Дедка за репку —
Тянут-потянут, вытянуть не могут.
Позвала внучка Жучку.
Репка - русская народная сказка
Жучка за внучку,
Внучка за бабку,
Бабка за дедку,
Дедка за репку —
Тянут-потянут, вытянуть не могут.
Позвала Жучка кошку.
Репка - русская народная сказка
Кошка за Жучку,
Жучка за внучку,
Внучка за бабку,
Бабка за дедку,
Дедка за репку —
Тянут-потянут, вытянуть не могут.
Позвала кошка мышку.
Репка - русская народная сказка
Мышка за кошку,
Кошка за Жучку,
Жучка за внучку,
Внучка за бабку,
Бабка за дедку,
Дедка за репку —
Тянут-потянут — и вытянули репку.
Репка - русская народная сказка
Вот и сказке конец, а кто слушал — молодец!