лабораторная работа / LAB_6

Лабораторная работа №6.

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

Цель работы: Научиться работать с двумерными массивами.

Задание: Дана матрица А(4х4). Найти максимальные элементы в каждой строке и вывести их в виде одномерного массива.

Блок-схема:

Программа:

program matrix;

var a:array[1..4,1..4] of integer;

b:array[1..4] of integer; i,j:byte; m:integer;

begin

for i:=1 to 4 do

for j:=1 to 4 do read(a[i,j]);

for i:=1 to 4 do

begin

m:=a[i,1];

for j:=2 to 4 do

if a[i,j]>m then m:=a[i,j];

b[i]:=m;

end;

for i:=1 to 4 do writeln('max[',i,']=',b[i]);

end.

Из массива A(4,4) =

(20, -3, 5, 8

-3, -5, 4, 6,

-43, 432, 4, 0,

-5, 45, -45, 6)

Получили:

max[1]=20

max[2]=6

max[3]=423

max[4]=45