Двумерные массивы

всех элементов именем. Имя массива состоит из букв(буквы) латинского алфавита.

индексов массива;
Диапазон изменения индекса (индексов), определяет количество элементов в массиве

называется двумерным массивом.
Его элементы нумеруются двумя индексами – номером строки

и номером столбца соответственно.
(Аналогом явл. ваше место в кинотеатре, где номер строки массива – это ряд, а номер столбца массива – это ваше место в ряду)

элементы первой строки, затем элементы второй строки и т.д.

в массиве одинаково, то такой массив называется квадратной матрицей.

к элементу массива указывается имя массива, а в квадратных скобках

через запятую индексы (номер строки, номер столбца) этого элементы массива.
Например А[3,2] мы обратились к элементу массива А, который располагается в третьей строке во втором столбце.

переменную в разделе описания переменных var с использованием зарезервированного слова

array( т.е. массив): var имя массива: array[нижняя граница индекс 1.. Верхняя граница индекс1, нижняя граница индекс2..верхняя граница индекс 2] of тип элементов;

3 4
6 7

8
10 11 12
Тогда описание этого массива:
Var b:array[1..3,1..4] of integer;
{12 элементов массива – целые числа}

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

больше.

с параметом: For…
Внешний цикл организуется по номеру строки, а внутренний

цикл – по номеру столбца. Значения элементов массива можно задавать вводом данных с клавиатуры.

столбцов данными с клавиатуры:
for i:=1 to 3 do

{внешний цикл по номеру строки}
for j:=1 to 2 do {внутренний цикл по номеру столбца }
Begin
writeln(‘Введите В[‘,i,’,’,j,’,]элемент массива’);
readln(B[i,j]);
End;

3 do
begin
For j:=1 to 2 do
Write(B[i,j]:5); {формат вывода применили для того,

чтобы числа выводились ровными столбцами}
Writeln;
End;

а) 11111 б) 11111 в)

12345
11111 22222 12345
11111 33333 12345
11111 44444 12345 11111 55555 12345

от [a,b]: a+random(b-a+1)
Заполнить массив размером 4 на 7 с помощью датчика

случайных чисел из промежутка [-5;10].

for i:=1 to 4 do
for j:=1 to 7 do
a[i,j]:=-5+random(10+5+1);

правилу:
A( i , j )=2*i + j /

2
Заполнить массив размером N x N (N<10) по следующему правилу:
A( i , j )=i + j

to n do
for j:=1 to n do
a[i,j]:=2*i+j/2;
for

i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:7:2);writeln;
end;
end.

программы:

for i:=1 to 10 do
for k:=1 to 10

do
if i > k then A[i,k] := 1 else A[i,k] := 0;

Чему равна сумма элементов массива после выполнения этого фрагмента программы?

в котором i строк и j столбцов.
Вычисление суммы элементов каждой

строки.
Результатом является массив с именем , B состоящий из i сумм элементов строк.

:integer;
begin
for i:=1 to 4 do
for J:=1 to

5 do
begin
writeln(‘Введи a[',i,',',j,']=');
readln(a[i,j]);
end;
writeln(‘Исходный массив:');
for i:=1 to 4 do
begin
for j:=1 to 5 do
write(a[i,j]:5); writeln;
end;
for I:=1 to 4 do
begin b[i]:=0;
for j:=1 to 5 do
b[i]:=b[i]+a[i,j]; writeln(‘сумма ', i ,‘строки равна ',b[i]:4);
end;
end.

значений минимального элемента, k – номер строки, l –номер столбца,

где он находится

to n do
For j:=1 to m do
If A[i,j]< min then

Begin
min:=A[i,j];
k:=i; L:=j;
End;

вложенного цикла в представленном фрагменте программы:


for i:=1 tо 5

do
for j:=1 tо 5 do begin
A[i,j] := i*j;
end;

Сколько элементов массива будут иметь значения больше 10?

m:=1 tо 5 do
C[n,m] := (m –

n)*(m – n);

А) Сколько элементов массива С >5?
Б) Сколько элементов массива С будут равны 1?