Добавил:
Glavniy_toksik_RTF
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные / Lab6
.pas unit Lab6;
interface
type
{Массив:}
m = array[0..9, 0..9] of word;
var
mas : m;
max, min: word;
procedure arrayCreate(arSize, elSize : word);
procedure arrayMaxAndMin(arSize: word);
procedure arrayMaxAndMinWrite(arSize: word);
implementation
{Генерация массива:}
procedure arrayCreate;
var
i, j : word;
begin
randomize;
for i := 0 to arSize do
for j := 0 to arSize do
mas[i, j] := random(elSize);
end;
{Поиск максимума и минимума:}
procedure arrayMaxAndMin;
var
i, j : word;
begin
max := mas[0, 0];
min := mas[0, 0];
for i := 0 to arSize do
for j := 0 to arSize do begin
if(mas[i, j] > max) then
max := mas[i, j];
if(mas[i, j] < min) then
min := mas[i, j];
end;
end;
{Вывод максимума и минимума:}
procedure arrayMaxAndMinWrite;
var
i, j : word;
begin
writeln('Максимум: ', max);
writeln('Минимум: ', min);
end;
end.
interface
type
{Массив:}
m = array[0..9, 0..9] of word;
var
mas : m;
max, min: word;
procedure arrayCreate(arSize, elSize : word);
procedure arrayMaxAndMin(arSize: word);
procedure arrayMaxAndMinWrite(arSize: word);
implementation
{Генерация массива:}
procedure arrayCreate;
var
i, j : word;
begin
randomize;
for i := 0 to arSize do
for j := 0 to arSize do
mas[i, j] := random(elSize);
end;
{Поиск максимума и минимума:}
procedure arrayMaxAndMin;
var
i, j : word;
begin
max := mas[0, 0];
min := mas[0, 0];
for i := 0 to arSize do
for j := 0 to arSize do begin
if(mas[i, j] > max) then
max := mas[i, j];
if(mas[i, j] < min) then
min := mas[i, j];
end;
end;
{Вывод максимума и минимума:}
procedure arrayMaxAndMinWrite;
var
i, j : word;
begin
writeln('Максимум: ', max);
writeln('Минимум: ', min);
end;
end.