
Массивы .
Одномерные и двумерные массивы:
Описание, ввод/вывод,
типы решаемых задач.

Одномерные(линейные) массивы.
Тип данных
Имя
2
0
15
1
-3
-5
4
7
6
5
4
3
2
1
![Линейные массивы. имя [сколько_элементов] тип_элементов const n=10; var mass:array [1..n] of integer;](http://fsd.compedu.ru/html/2024/04/15/i_661d02f629ae6/img_phpjkGgLl_Massivy_2.jpg)
Линейные массивы.
имя
[сколько_элементов]
тип_элементов
const
n=10;
var
mass:array [1..n] of integer;
![Линейные массивы а) Ввод данных в массив осуществляется поэлементно mass[1]:=; mass[2]:=; б) Ввод данных организован в цикле: for i:=1 to n do mass[i]:=;](http://fsd.compedu.ru/html/2024/04/15/i_661d02f629ae6/img_phpjkGgLl_Massivy_3.jpg)
Линейные массивы
а) Ввод данных в массив осуществляется поэлементно
mass[1]:=;
mass[2]:=;
б) Ввод данных организован в цикле:
for i:=1 to n do
mass[i]:=;
![Можно все, что не запрещено!!! const m=10; type Massiv=array[1..m] of Lmassiv;](http://fsd.compedu.ru/html/2024/04/15/i_661d02f629ae6/img_phpjkGgLl_Massivy_4.jpg)
Можно все, что не запрещено!!!
const
m=10;
type
Massiv=array[1..m] of Lmassiv;

var
mass1:massiv;
Имя

Двумерные массивы
Опр.1
Матрица – прямоугольная таб-лица чисел.
M – строк
N – столбцов
Матрица размерности M N
Опр.2
Двумерный массив – способ организации данных, при котором каждый элемент определяется номером строки и номером столбца, на пересечении которых он расположен.
![Двумерные массивы Тип данных 6 5 1 2 3 4 1 2 5 -5 54 12 10 2 18 4 0 12 3 22 3 14 12 2 56 14 12 12 4 10 -4 6 9 14 12 Mass1[3,5]=? = 12](http://fsd.compedu.ru/html/2024/04/15/i_661d02f629ae6/img_phpjkGgLl_Massivy_7.jpg)
Двумерные массивы
Тип данных
6
5
1
2
3
4
1
2
5
-5
54
12
10
2
18
4
0
12
3
22
3
14
12
2
56
14
12
12
4
10
-4
6
9
14
12
Mass1[3,5]=?
= 12
![Двумерные массивы const m=10;n=10; type Lmassiv=array[1..n] of integer; Massiv=array[1..m] of Lmassiv; var mass1:massiv; Lmassiv=array[1..n] of integer; Massiv=array[1..m] of Lmassiv;](http://fsd.compedu.ru/html/2024/04/15/i_661d02f629ae6/img_phpjkGgLl_Massivy_8.jpg)
Двумерные массивы
const
m=10;n=10;
type
Lmassiv=array[1..n] of integer;
Massiv=array[1..m] of Lmassiv;
var
mass1:massiv;
Lmassiv=array[1..n] of integer;
Massiv=array[1..m] of Lmassiv;
![Двумерные массивы const m=10; n=10; type matrix=array[1..m,1..n] of integer; var mat : matrix; i, j : integer; matrix=array[1..m,1..n] of integer;](http://fsd.compedu.ru/html/2024/04/15/i_661d02f629ae6/img_phpjkGgLl_Massivy_9.jpg)
Двумерные массивы
const
m=10; n=10;
type
matrix=array[1..m,1..n] of integer;
var
mat : matrix;
i, j : integer;
matrix=array[1..m,1..n] of integer;
![Двумерные массивы. … for i:=1 to m do for j:=1 to n do begin write(‘mat[ ’, i, j, ’ ] = ‘); read(mat[i, j]) end; …](http://fsd.compedu.ru/html/2024/04/15/i_661d02f629ae6/img_phpjkGgLl_Massivy_10.jpg)
Двумерные массивы.
…
for i:=1 to m do
for j:=1 to n do
begin
write(‘mat[ ’, i, j, ’ ] = ‘);
read(mat[i, j])
end;
…

Двумерные массивы
Пример: дан двумерный массив чисел m x n. Вывести на экран сумму элементов строк массива.

Решение:
1
2
3
4
![Листинг программы program matrix1; uses crt; const m=10; n=20; var mas : array[1..m, 1..n] of integer; i, j, s : integer; begin clrscr; for i:=1 to m do for j:=1 to n do mas[i, j]:=random(51)-50;](http://fsd.compedu.ru/html/2024/04/15/i_661d02f629ae6/img_phpjkGgLl_Massivy_13.jpg)
Листинг программы
program matrix1;
uses crt;
const m=10; n=20;
var mas : array[1..m, 1..n] of integer;
i, j, s : integer;
begin clrscr;
for i:=1 to m do
for j:=1 to n do mas[i, j]:=random(51)-50;
![Листинг программы for i:=1 to m do begin s:=0; for j:=1 to n do s:=s+mas[i, j]; writeln(i, ‘ – ая = ’, s:5) end; readkey end.](http://fsd.compedu.ru/html/2024/04/15/i_661d02f629ae6/img_phpjkGgLl_Massivy_14.jpg)
Листинг программы
for i:=1 to m do
begin
s:=0;
for j:=1 to n do s:=s+mas[i, j];
writeln(i, ‘ – ая = ’, s:5)
end;
readkey
end.