Найти максимальный и минимальный элемент в матрице и их номера

@yaho · Регистрация: 06.09.2012

Author24 — интернет-сервис помощи студентам

Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10, 10] и вывести её на экран. Найти максимальный и минимальный элемент в матрице и их номера.

@apen · 13.09.2012, 19:31

Pascal

var
a: array [1..8,1..5] of integer;
i,j,min,max,m,n,p,k:integer;
begin
 max:=-10;
 min:=10;
 randomize;
 for i:=1 to 8 do 
  begin
   writeln;
  for j:=1 to 5 do 
   begin
   a[i,j]:=random(21)-10;
   write(a[i,j],' ');
    if a[i,j]>max then 
     begin 
      max:=a[i,j]; 
      m:=i; 
      n:=j; 
     end;
    if a[i,j]<min then 
     begin 
      min:=a[i,j];  
     p:=i; 
     k:=j; 
    end;
   end;
  end;
writeln;
writeln('min=',min,'[',p,']','[',k,']');
writeln('max=',max,'[',m,']','[',n,']');
end.

@yaho 0 / 0 / 0 Регистрация: 06.09.2012 Сообщений: 36
		1
	Найти максимальный и минимальный элемент в матрице и их номера 13.09.2012, 16:19. Показов 17683. Ответов 1 Метки нет (Все метки) Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10, 10] и вывести её на экран. Найти максимальный и минимальный элемент в матрице и их номера. 0

	13.09.2012, 19:31

Найти максимальный и минимальный элемент в матрице и их номера

Решение