7.3.Двовимірні масиви
П
А
Б
лок-схема:
Програма:
Program Ex_Matr1;
uses Crt;
const n=4; m=5;
var
a=array[1..n, 1..m] of real;
min: real;
i, j, im, jm : byte;
BEGIN
clrscr;
writeln(‘Ввести масив з’, n, ‘рядків’, ‘та’, m, ‘стовпців’);
for i:=1 to n do {введення елементів масива по рядках}
begin
for j:=1 to m do
read (a[i,j]); {елементи кожного рядка вводити через пробіл}
readln; {перехід на новий рядок – натиснути клавішу ENTER}
end;
min:=a[1,1]; {приймаємо за min перший елемент}
im:=1; {номер рядка першого елемента }
jm:=1; {номер стовпця першого елемента }
for i:=1 to n do
for j:=1 to m do
if a[i,j] < min then
begin
min:= a[i,j];
im:=i;
jm:=j;
end;
writeln(‘min=’, min:6:2, ‘ ‘ : 2, ‘im=’, im, ‘ ‘ :2, ‘jm=’, jm)
END.
ПРИКЛАД 2.
Визначити добуток елементів k-го рядка матриці B розміром n*m.
Б
лок-схема:
Програма:
Program Ex_Matr2;
uses Crt;
const n=3; m=4;
type
matr=array[1.. n, 1.. m] of integer;
var
b: matr;
i, j, k : byte;
P: longint;
BEGIN
clrscr;
writeln(‘Ввести масив з’, n, ‘рядків’, ‘та’, m, ‘стовпців’);
for i:=1 to n do {введення елементів масива по рядках}
begin
for j:=1 to m do
read (b[i,j]); {елементи кожного рядка вводити через пробіл}
readln; {перехід на новий рядок – натиснути клавішу ENTER}
end;
writeln(‘Ввести номер рядка k<=n’);
readln(k);
P:=1; {добуток}
for j:=1 to m do
P:=P*b[k,j] ;
writeln(‘P=’,P)
END.
Варіанти індивідуальних завдань.
Знайти найбільший та найменший елементи двовимірного масиву дійсних чисел В[m, n].
Точки на площині задані своїми координатами, що зберігаються відповідно в масивах х і у. Знайти пару самих віддалених одну від одної точок.
Знайти суму елементів двовимірного масиву дійсних чисел С [15,15], розташованих на головній діагоналі.
Знайти суми елементів двовимірного масиву цілих чисел, розташованих на лініях, паралельних головній діагоналі, і нижче її.
Знайти суму елементів двовимірного масиву дійсних чисел, розташованих на лініях, паралельних побічній діагоналі, і вище її.
Знайти номер рядка і стовпчика двовимірного масиву для максимального елемента цього масиву.
Задано двовимірний масив дійсних чисел. Знайти максимальну суму абсолютних значень елементів по рядкам і номер рядка з такою сумою.
Задано двовимірний масив дійсних чисел. Знайти максимальну суму абсолютних значень елементів по стовпцям і номер стовпця з такою сумою.
Задано двовимірний масив цілих чисел. Знайти номер рядка, для котрого середнє арифметичне значення його елементів максимальне.
У двовимірному масиві дійсних чисел знайти номер рядка, для котрого середнє арифметичне значення його елементів мінімальне.
Знайти номер стовпця двовимірного масиву цілих чисел, для якого середнє арифметичне значення його елементів максимальне.
Знайти номер стовпця двовимірного масиву дійсних чисел, для якого середнє арифметичне значення його елементів мінімальне.
У двовимірному масиві цілих чисел поміняти місцями елементи, симетричні відносно головної діагоналі.
У двовимірному масиві дійсних чисел поміняти місцями рядки і стовпці з однаковими номерами.
У двовимірному масиві цілих чисел поміняти місцями стовпці, симетричні відносно середини масиву (вертикальної лінії).
У двовимірному масиві цілих чисел поміняти місцями рядки, симетричні відносно середини масиву (горизонтальної лінії).
Поміняти місцями значення елементів двовимірного масиву дійсних чисел, симетричних відносно побічної діагоналі.
Знайти максимальний елемент серед максимальних елементів рядків двовимірного масиву цілих чисел. Визначити номер рядка і стовпця для такого елемента.
Знайти мінімальний серед мінімальних елементів стовпців двовимірного масиву цілих чисел. Визначити номер рядка і стовпця для такого елемента.
Знайти максимальний елемент серед мінімальних елементів стовпців двовимірного масиву. Визначити номер рядка і стовпця для такого елемента.
Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного з парних стовпців цієї матриці.
Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного з непарних стовпців цієї матриці.
Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного із рядків цієї матриці.
Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного із парних рядків цієї матриці.
Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного із непарних рядків цієї матриці.
Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного із всіх негативних елементів цієї матриці.
Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти середнє арифметичне елементів кожного із всіх позитивних елементів цієї матриці.
Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти характеристику кожного її рядка (суму позитивних парних елементів в кожному рядку).
Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти характеристику кожного її стовпця (суму позитивних парних елементів в кожному стовпці).
Задана квадратна матриця A розміром N x N, що складається із дійсних елементів. Знайти суму і добуток всіх її позитивних елементів.