Лабораторный практикум "Программирование дополнительных элементов (строк, столбцов и диагоналей) матрицы" 9 класс

Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 1
1. Вычислить сумму элементов главной диагонали матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: S={++}=15
1
2
3
4
5
6
7
8
9
2. Найти произведение элементов побочной диагонали матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: P={…*…*…*}=3640
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
3. Определить максимальный элемент 4-ой строки матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Max=20
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать минимальный элемент 3-го столбца матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Min=3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 2
1. Вычислить сумму побочной диагонали матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: S={++}=15
1
2
3
4
5
6
7
8
9
2. Найти произведение главной диагонали матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: P={…*…*…*…*}=1056
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
3. Определить максимальный элемент 1-го столбца матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Max=21
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать минимальный элемент 6-ой строки матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Min=31
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 3
1. Вычислить сумму элементов 1-ой строки матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: S={++}=6
1
2
3
4
5
6
7
8
9
2. Найти произведение элементов 4-го столбца матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: P={…*…*…*}=6144
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
3. Определить максимальный элемент главной диагонали матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Max=25
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать минимальный элемент побочной диагонали матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Min=6
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 4
1. Вычислить сумму элементов 2-го столбца матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: S={++}=15
1
2
3
4
5
6
7
8
9
2. Найти произведение элементов главной диагонали матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: P={…*…*…*}=1056
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
3. Определить максимальный элемент побочной диагонали матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Max=21
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать минимальный элемент над главной диагональю матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Min=2
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 5
1. Вычислить сумму элементов главной диагонали матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: S={++}=15
1
2
3
4
5
6
7
8
9
2. Найти произведение элементов побочной диагонали матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: P={…*…*…*}=3640
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
3. Определить максимальный элемент над главной диагональю матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Max=20
1
2
3
4
5
6
7
8
9
10
11
12
13
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать минимальный элемент под главной диагональю матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Min=7
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 6
1. Вычислить сумму элементов под главной диагональю матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: S={++}=19
1
2
3
4
5
6
7
8
9
2. Найти произведение элементов 3-ей строки матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: P={…*…*…*}=3640
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
3. Определить максимальный элемент 5-го столбца матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Max=25
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать минимальный элемент главной диагонали матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Min=1
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 7
1. Вычислить сумму элементов над главной диагональю матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: S={++}=11
1
2
3
4
5
6
7
8
9
2. Найти произведение элементов под главной диагональю матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: P={…*…*…*…*…*…}=1228500
1
2
3
4
5
6
7
8
9
10
11
13
14
15
16
3. Определить максимальный элемент 5-ой строки матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Max=25
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать минимальный элемент 6-го столбца матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Min=6
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 8
1. Вычислить сумму элементов побочной диагонали матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: S={++}=15
1
2
3
4
5
6
7
8
9
2. Найти произведение элементов над главной диагональю матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: P={*…*…*…*…*…}=16128
1
2
3
4
5
6
7
8
9
10
11
13
14
15
16
3. Определить максимальный элемент под главной диагональю матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Max=24
1
2
3
4
5
6
7
8
9
10
11
12
13
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать минимальный элемент 2-ой строки матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Min=7
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 9
1. Вычислить произведение элементов над главной диагональю матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: P={…*…*…}=72
7
4
9
1
6
2
8
3
9
2. Найти сумму элементов под главной диагональю матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: S={…+…+…+…+…+…}=66
1
2
3
4
5
6
7
8
9
10
11
13
14
15
16
3. Определить минимальный элемент 5-ой строки матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Min=21
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать максимальный элемент 6-го столбца матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Max=36
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 10
1. Вычислить произведение элементов побочной диагонали матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: P={…*…*…}=105
8
9
7
4
5
6
3
2
9
2. Найти сумму элементов над главной диагональю матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: S={…+…+…+…+…+…}=36
1
2
3
4
5
6
7
8
9
10
11
13
14
15
16
3. Определить минимальный элемент под главной диагональю матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Min=6
1
2
3
4
5
6
7
8
9
10
11
12
13
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать максимальный элемент 2-ой строки матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Max=12
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 11
1. Вычислить сумму элементов над главной диагональю матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: S={++}=11
1
2
3
4
5
6
7
8
9
2. Найти произведение элементов 2-ой строки матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: P={…*…*…*}=1680
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
3. Определить минимальный элемент 4-го столбца матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Min=4
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать максимальный элемент главной диагонали матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Max=36
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 12
1. Вычислить произведение элементов 1-ой строки матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: P={…*…*…}=6
1
2
3
4
5
6
7
8
9
2. Найти сумму элементов 4-го столбца матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: S={…+…+…+…}=40
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
3. Определить минимальный элемент главной диагонали матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Min=1
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать максимальный элемент побочной диагонали матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Max=31
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 13
1. Вычислить сумму элементов под побочной диагональю матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: S={++}=23
1
2
3
4
5
6
7
8
9
2. Найти произведение элементов над побочной диагональю матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: P={…*…*…*…*…*…}=1620
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
3. Определить максимальный элемент каждой строки матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………………………}
{……………..};
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные:
1
2
3
4
5
Max=
5
6
7
8
9
10
Max=
10
11
12
13
14
15
Max=
15
16
17
18
19
20
Max=
20
21
22
23
24
25
Max=
25
4. Напечатать минимальный элемент каждого столбца матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………………………}
{……………..};
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные:
1
2
3
4
5
6
Min= 1
7
8
9
10
11
12
Min= 2
13
14
15
16
17
18
Min= 3
19
20
21
22
23
24
Min= 4
25
26
27
28
29
30
Min= 5
31
32
33
34
35
36
Min= 6
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 14
1. Вычислить произведение элементов над побочной диагональ матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные: S={**}=8
1
2
3
4
5
6
7
8
9
2. Найти сумму элементов под побочной диагональю матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
{……………..};
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: P={…+…+…+++…}=76
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
3. Определить максимальный элемент каждого столбца матрицы С (5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………………………}
{……………..};
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные:
1
2
3
4
5
Max=21
6
7
8
9
10
Max=22
11
12
13
14
15
Max=23
16
17
18
19
20
Max=24
21
22
23
24
25
Max=25
4. Напечатать минимальный элемент каждой строки матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………………………}
{……………..};
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные:
1
2
3
4
5
6
Min=1
7
8
9
10
11
12
Min=7
13
14
15
16
17
18
Min=13
19
20
21
22
23
24
Min=19
25
26
27
28
29
30
Min=25
31
32
33
34
35
36
Min=31
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 14
1. Вычислить сумму элементов каждой строки матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………..};
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные
1
2
3
S=6
4
5
6
S=15
7
8
9
S=24
2. Найти произведение элементов каждого столбца матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………..};
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные:
1
2
3
4
P=585
5
6
7
8
P=1680
9
10
11
12
P=3465
13
14
15
16
P=6144
3. Определить максимальный элемент над побочной диагональю матрицы С(5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Max=16
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать минимальный элемент под побочной диагональю матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Min=12
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________
Лабораторный практикум
Тема: «Программирование дополнительных элементов
(строк, столбцов и диагоналей) матрицы»
9 класс
Вариант – 15
1. Вычислить сумму элементов каждого столбца матрицы А (3, 3).
var
A: Array [1..3, 1..3] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 3 do
for J:=1 to 3 do
readln (A[I, J]);
{……………………………}
{……………..};
{……………………………}
{……………………………………...}
writeln ('……........................ ', {…..});
readln;
end.
Входные данные: Выходные данные:
1
2
3
S=12
4
5
6
S=15
7
8
9
S=18
2. Найти произведение элементов каждой строки матрицы В (4, 4).
var
В: Array [1..4, 1..4] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 4 do
for J:=1 to 4 do
readln (В[I, J]);
{……………………………}
{……………..};
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные:
1
2
3
4
P=24
5
6
7
8
P=1680
9
10
11
12
P=11800
13
14
15
16
P=43680
3. Определить максимальный элемент под побочной диагональю матрицы С(5,5).
var
C: Array [1..5, 1..5] of integer;
{…..}, I, J: integer;
begin
for I:=1 to 5 do
for J:=1 to 5 do
readln (C[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………..= ', {…..});
readln;
end.
Входные данные: Выходные данные: Max=25
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
4. Напечатать минимальный элемент над побочной диагональю матрицы D (6,6).
var
D: Array [1..6, 1..6] of integer;
{…..}, I, J: integer;
begin
for I:=1 to N do
for J:=1 to N do
readln (D[I, J]);
{……………..};
{……………………………}
{……………………………}
{……………………………………...}
writeln ( '…………………= ', {……});
readln;
end.
Входные данные: Выходные данные: Min=1
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Класс ________
Фамилия имя ______________________