Лістинг програми:

Program max_st;

Type Matr=array[1..3,1..4] of real;

Var max: real;

a:Matr;

i,j:integer;

begin

for i:=1 to 3 do

for j:=1 to 4 do

begin

write(' a=[', i, ',',j,']=');

readln(a[i,j]);

end;

max:=a[2,1];

for j:=2 to 4 do

if max<a[2,j] then

max:=a[2,j];

writeln ('Найбільший елемент другого рядка =', max:8:2);

end.

Дана програма являє собою реалізацію алгоритму знаходження найбільшого елемента вектора, отриманого шляхом фіксування одного з індексів двовимірного масиву.

Результат роботи програми:

a=[1,1]=1.2

a=[1,2]=1.3

a=[1,3]=1.4

a=[1,4]=2.3

a=[2,1]=2.5

a=[2,2]=33

a=[2,3]=98.3

a=[2,4]=-32.3

a=[3,1]=3

a=[3,2]=0.53

a=[3,3]=1.333

a=[3,4]=1.36

Найбільший елемент другого рядка = 98.30

Блок-схема алгоритму:

Контрольні питання

1. Як визначити кількість комірок, що відводяться під масив?

2. Які дії виконують над елементами масиву?

3. Чи може масив бути елементом масиву?

4. Що позначають індекси матриці?

5. Дайте поняття квадратної матриці, діагоналей квадратної матриці.

6. Як обробляються рядки у двовимірному масиві?

Викладач ____________ М. О. Пашко

6