Добавил:
Glavniy_toksik_RTF
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
program labor5;
type
m = array[1..10, 1..10] of integer;
var
i, j, min, max: integer;
mas : m;
procedure masMake();
begin
for i := 1 to 10 do
for j := 1 to 10 do
mas[i, j] := random(100);
end;
procedure masMin();
begin
min := 1000;
for i := 1 to 10 do
for j := 1 to 10 do
if mas[i, j] < min then
min := mas[i, j];
end;
procedure masMax();
begin
max := 0;
for i := 1 to 10 do
for j := 1 to 10 do
if mas[i, j] > max then
max := mas[i, j];
end;
procedure masPrint();
begin
write('Min = ');
writeln(min);
write('Сoordinates of min: ');
for i := 1 to 10 do
for j := 1 to 10 do
if(mas[i, j] = min) then begin
write('(');
write(i);
write(', ');
write(j);
write(') ');
end;
writeln(' ');
write('Max = ');
writeln(max);
write('Сoordinates of max: ');
for i := 1 to 10 do
for j := 1 to 10 do
if(mas[i, j] = max) then begin
write('(');
write(i);
write(', ');
write(j);
write(') ');
end;
end;
begin
randomize;
masMake();
masMin();
masMax();
masPrint();
end.
type
m = array[1..10, 1..10] of integer;
var
i, j, min, max: integer;
mas : m;
procedure masMake();
begin
for i := 1 to 10 do
for j := 1 to 10 do
mas[i, j] := random(100);
end;
procedure masMin();
begin
min := 1000;
for i := 1 to 10 do
for j := 1 to 10 do
if mas[i, j] < min then
min := mas[i, j];
end;
procedure masMax();
begin
max := 0;
for i := 1 to 10 do
for j := 1 to 10 do
if mas[i, j] > max then
max := mas[i, j];
end;
procedure masPrint();
begin
write('Min = ');
writeln(min);
write('Сoordinates of min: ');
for i := 1 to 10 do
for j := 1 to 10 do
if(mas[i, j] = min) then begin
write('(');
write(i);
write(', ');
write(j);
write(') ');
end;
writeln(' ');
write('Max = ');
writeln(max);
write('Сoordinates of max: ');
for i := 1 to 10 do
for j := 1 to 10 do
if(mas[i, j] = max) then begin
write('(');
write(i);
write(', ');
write(j);
write(') ');
end;
end;
begin
randomize;
masMake();
masMin();
masMax();
masPrint();
end.