Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные / Lab6

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.