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

program Lab4;
type
{Массив:}
m = array[0..9, 0..9] of word;

var
mas : m;
i, j, max, min: word;

begin
randomize;

{Генераци массива:}
for i := 0 to 9 do
for j := 0 to 9 do
mas[i, j] := random(10);

{Вывод массива:}
writeln('Массив:');
for i := 0 to 9 do begin
for j := 0 to 9 do begin
write(mas[i, j], ' ');
end;
writeln('');
end;
writeln('');

{Поиск максимума:}
max := mas[0, 0];
for i := 0 to 9 do
for j := 0 to 9 do
if(mas[i, j] > max) then
max := mas[i, j];

{Поиск минимума:}
min := mas[0,0];
for i := 0 to 9 do
for j := 0 to 9 do
if(mas[i, j] < min) then
min := mas[i, j];


{Вывод максимума:}
write('Максимум: ', max, '. Координаты: ');
for i := 0 to 9 do
for j := 0 to 9 do
if(mas[i, j] = max) then
write('[', i, ', ', j, '] ');

{Вывод минимума:}
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.