Добавил:
Glavniy_toksik_RTF
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные (txt) / Lab5
.txt program Lab5;
type
{Массив:}
m = array[0..9, 0..9] of word;
var
mas : m;
arraySize, elementSize, max, min: word;
{Генерация массива:}
procedure arrayCreate(arSize, elSize : word);
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 arrayWrite(arSize: word);
var
i, j : word;
begin
writeln('Массив:');
for i := 0 to arSize do begin
for j := 0 to arSize do begin
write(mas[i, j], ' ');
end;
writeln('');
end;
end;
{Поиск максимума:}
procedure arrayMax(arSize: word);
var
i, j : word;
begin
max := mas[0, 0];
for i := 0 to arSize do
for j := 0 to arSize do
if(mas[i, j] > max) then
max := mas[i, j];
end;
{Поиск минимума:}
procedure arrayMin(arSize: word);
var
i, j : word;
begin
min := mas[0, 0];
for i := 0 to arSize do
for j := 0 to arSize do
if(mas[i, j] < min) then
min := mas[i, j];
end;
{Вывод максимума:}
procedure arrayMaxWrite(arSize: word);
var
i, j : word;
begin
writeln('');
write('Максимум: ', max, '. Координаты: ');
for i := 0 to arSize do
for j := 0 to arSize do
if(mas[i, j] = max) then
write('[', i, ', ', j, '] ');
end;
{Вывод минимума:}
procedure arrayMinWrite(arSize: word);
var
i, j : word;
begin
writeln('');
write('Минимум: ', min, '. Координаты: ');
for i := 0 to 9 do
for j := 0 to 9 do
if(mas[i, j] = min) then
write('[', i, ', ', j, '] ');
end;
begin
arraySize := 9;
elementSize := 10;
arrayCreate(arraySize, elementSize);
arrayWrite(arraySize);
arrayMax(arraySize);
arrayMin(arraySize);
arrayMaxWrite(arraySize);
arrayMinWrite(arraySize);
end.
type
{Массив:}
m = array[0..9, 0..9] of word;
var
mas : m;
arraySize, elementSize, max, min: word;
{Генерация массива:}
procedure arrayCreate(arSize, elSize : word);
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 arrayWrite(arSize: word);
var
i, j : word;
begin
writeln('Массив:');
for i := 0 to arSize do begin
for j := 0 to arSize do begin
write(mas[i, j], ' ');
end;
writeln('');
end;
end;
{Поиск максимума:}
procedure arrayMax(arSize: word);
var
i, j : word;
begin
max := mas[0, 0];
for i := 0 to arSize do
for j := 0 to arSize do
if(mas[i, j] > max) then
max := mas[i, j];
end;
{Поиск минимума:}
procedure arrayMin(arSize: word);
var
i, j : word;
begin
min := mas[0, 0];
for i := 0 to arSize do
for j := 0 to arSize do
if(mas[i, j] < min) then
min := mas[i, j];
end;
{Вывод максимума:}
procedure arrayMaxWrite(arSize: word);
var
i, j : word;
begin
writeln('');
write('Максимум: ', max, '. Координаты: ');
for i := 0 to arSize do
for j := 0 to arSize do
if(mas[i, j] = max) then
write('[', i, ', ', j, '] ');
end;
{Вывод минимума:}
procedure arrayMinWrite(arSize: word);
var
i, j : word;
begin
writeln('');
write('Минимум: ', min, '. Координаты: ');
for i := 0 to 9 do
for j := 0 to 9 do
if(mas[i, j] = min) then
write('[', i, ', ', j, '] ');
end;
begin
arraySize := 9;
elementSize := 10;
arrayCreate(arraySize, elementSize);
arrayWrite(arraySize);
arrayMax(arraySize);
arrayMin(arraySize);
arrayMaxWrite(arraySize);
arrayMinWrite(arraySize);
end.