Заполнение массива случайным образом.

Program M1;

Var

A: Array [1..3,1..2] Of Integer;

i,j:integer;

Begin

randomize;

For i:=1 to 3 do {заполнение массива}

For j:=1 to 2 do begin

a[i,j]:=random (10);

Write('a[',i,',',j,']=',a[i,j]:2); {вывод массива в столбец с индексами элемента}

writeln;

end;

readln;

End.

максимум, минимум в таблице CONST n=5; m=4; VAR A:array[1..n,1..m] of integer; max,min,i,j:integer; BEGIN randomize; for i:=1 to n do begin for j:=1 to m do begin A[i,j]:=random (50); Write(a[i,j]:3); end; writeln; end; max:=A[1,1]; min:=A[1,1]; for i:=1 to n do for j:=1 to m do begin if A[i,j]>max then max:=A[i,j]; if min>A[i,j] then min:=A[i,j]; end; Writeln('max = ',max); Writeln('min = ',min); readln; END.	максимум, минимум в строках CONST n=5; m=4; VAR A:array[1..n,1..m] of integer; i,j,max,min:integer; BEGIN randomize; for i:=1 to n do begin for j:=1 to m do begin A[i,j]:=random (50); Write(a[i,j]:4); end; writeln; end;   for i:=1 to n do begin max:=A[i,1]; min:=A[i,1]; for j:=1 to m do begin if A[i,j]>max then max:=A[i,j]; if min>A[i,j] then min:=A[i,j]; end;   Writeln('max',i,'sroka',max); Writeln('min',i,'sroka',min); end; readln; END.	максимум, минимум в столбцах CONST n=5; m=4; VAR A:array[1..n,1..m] of integer; i,j,max,min:integer; BEGIN randomize; for i:=1 to n do begin for j:=1 to m do begin A[i,j]:=random (50); Write(a[i,j]:4); end; writeln; end;   for j:=1 to m do begin max:=A[1,j]; min:=A[1,j]; for i:=2 to n do begin if A[i,j]>max then max:=A[i,j]; if min>A[i,j] then min:=A[i,j]; end;   Writeln('max ',j,' stolbce',max); Writeln('min ',j,' stolbce',min); end; readln; END.
максимум, минимум на главной и побочной диагоналях   CONST n=3; VAR A:array[1..n,1..n] of integer; i,j,max,min,pmax,pmin:integer; BEGIN randomize; for i:=1 to n do begin for j:=1 to n do begin A[i,j]:=random (90); Write(a[i,j]:4); end; writeln; end;   max:=A[1,1]; min:=A[1,1]; for i:=1 to n do begin for j:=1 to n do begin If i=j then begin if A[i,j]>max then max:=A[i,j]; if min>A[i,j] then min:=A[i,j]; end; end; end; Writeln('max gl diagonal',max); Writeln('min gl diagonal',min);   pmax:=A[1,1]; pmin:=A[1,1]; for i:=1 to n do for j:=1 to n do begin if A[i,n-i+1]>pmax then pmax:=A[i,n-i+1]; if pmin>A[i,n-i+1] then pmin:=A[i,n-i+1]; end; Writeln('max pob diagonali ',pmax); Writeln('min pob diagonali ',pmin);     readln; END.		максимум, минимум выше и ниже главной диагонали   CONST n=5; VAR A:array[1..n,1..n] of integer; i,j,max,min:integer; BEGIN randomize; for i:=1 to n do begin for j:=1 to n do begin A[i,j]:=random (50); Write(a[i,j]:4); end; writeln; end; max:=A[1,1]; min:=A[1,1]; for i:=1 to n-1 do for j:=i+1 to n do begin if A[i,j]>max then max:=A[i,j]; if min>A[i,j] then min:=A[i,j]; end; Writeln('max vishe gl diagonali ',max); Writeln('min vishe gl diagonali ',min);   max:=A[1,1]; min:=A[1,1]; for i:=2 to n do for j:=1 to i-1 do begin if A[i,j]>max then max:=A[i,j]; if min>A[i,j] then min:=A[i,j]; end; Writeln('max nige gl diagonali ',max); Writeln('min nige gl diagonali ',min); readln; END.

Абстра́ктный тип да́нных (АТД) — это тип данных, который предоставляет для работы с элементами этого типа определённый набор функций, а также возможность создавать элементы этого типа при помощи специальных функций.

Массив – структурированный тип данных состоящий из фиксированного числа элементов имеющих 1 и тот же тип. Они относятся к регулярному типу, т.к в них объединены однородные элементы упорядоченные по индексам, которые определяют положение каждого элемента в массиве.

Особенности массива:

• все элементы имеют один тип

• весь массив имеет одно имя

• все элементы расположены в памяти рядом

Массивы делятся на линейны и двумерные. Линейные массивы - массив, состоящий из одной строки или столбца. Двумерные массивы - массив, состоящий более чем из одной строки и столбца.

Каждый массив имеет свое имя. Каждое значение в массиве называется элементом.

Номер элемента в списке называется индексом. Элементы представляют собой символьные или числовые значения, которые можно использовать в выражениях ЯП ПАСКАЛЬ.

Двумерный массив можно представить себе в виде таблицы, в которой все строки и столбцы пронумерованы.

Каждый элемент такого массива имеет два индекса:

Первый индекс – это номер строки;

Второй индекс – номер столбца.

Обращение к элементам двумерного массива имеет вид: M [ i, j ]. Это означает, что мы хотим получить элемент, расположенный в i -й строке и j -м столбце.

A[1,1]	A[1,2]	A[1,3]	A[1,4]	A[1,5]
A[2,1]	A[2,2]	A[2,3]	A[2,4]	A[2,5]
A[3,1]	A[3,2]	A[3,3]	A[3,4]	A[3,5]
A[4,1]	A[4,2]	A[4,3]	A[4,4]	A[4,5]

Описание типа массива задается следующим образом:

<имя типа> = array [<Диапазон индексов строки>, < Диапазон индексов столбца>] of <тип элиментов>;

Пример описания двумерного массива Паскаля

Type

M= array [1..5] of array [1..10] of < тип элементов >;

M = array [1..5, 1..10] of <тип элементов>;

или

Var

M= array [1..5] of array [1..10] of < тип элементов >;

M= array [1..5, 1..10] of <тип элементов>;

---

Дата добавления: 2015-07-11