Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const
- n = 10;
- m = 10;
- type
- mas = array[1..n, 1..m] of integer;
- var
- a: mas;
- mini, minj, min: integer;// индекс максимального по i, j и само значение элемента
- procedure random_mas(var a: mas);//процедура заполнения случайными числами
- var
- i, j: integer;
- begin
- for I := 1 to n do
- begin
- for j := 1 to m do
- a[i, j] := random(101) - 30;
- end;
- end;
- procedure print_mas(v: mas);//процедура вывода массива на экран
- var
- j, i: integer;
- begin
- for i := 1 to n do
- begin
- for j := 1 to m do
- write(v[i, j]:4, ' ');writeln;
- end;
- end;
- procedure minindex;//Процедура ищет мин. элемент и его индексы
- var
- i, j: integer;
- begin
- min := a[1, 1];
- for i := 1 to n do
- begin
- for j := 1 to m do
- if a[i, j] < min then
- begin
- min := a[i, j];
- mini := i;
- minj := j;
- end;
- end;
- end;
- begin
- random_mas(a);
- print_mas(a);
- maxindex;
- writeln('Минималньый элемент массива: ', min);
- writeln('Координаты: (', mini, ';', minj, ')');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement