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

Постановка задачи:

1. Изучить способы описания и использования многомерных массивов, назначение процедур, их описание и обращение к ним.

2. Разбить задачу соответствующего варианта на подзадачи, таким образом, чтобы решение каждой подзадачи описывалось процедурой, а основная программа состояла из последовательности вызова процедур.

3. Программно реализовать алгоритмы.

Задание к работе:

1. Дана матрица n*m. В каждой Строке выбрать минимальный элемент, затем среди них найти наибольший. Вывести индексы найденного элемента.

2. Набрать программу, отладить ее, протестировать. Распечатать текст программы и результаты ее работы на тестовых данных.

Ход выполнения работы

1. Блок-схема:

-

z:=b[1] y:=1

b[x]:=z

z:=a[x,y] c[i]:=y

+

-

+

Рисунок 1. Блок-схема программы

2. Текст программы

Program lab52;

Const

max=10;

Type

mat=array[1..max] of array[1..max] of integer;

Var

a:mat;

b:array[1..max] of integer;

c:array[1..max] of Byte;

i,j:byte;

procedure vvod_m(Var a:mat;Var i,j:Byte);

Var x,y:byte;

Begin

Writeln('Введите мерность матрици ');

--> ЧИТАТЬ ПОЛНОСТЬЮ <--