Матрица. Найти разность между максимальным и минимальным элементами матрицы

@Sorvigolova · Регистрация: 19.05.2012

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

Дана матрица,содержащая N*M вещественных чисел.Найти разность между максимальным и минимальным элементами матрицы.

@Vitek.agl · 19.05.2012, 21:15

ограничений нету?

Pascal

type matrix=array[1..100,1..100] of real;
var a:matrix;
     min,max:real;
     n,m,i,j:word;
begin
      readln(n,m);
      for i:=1 to n do
        for j:=1 to m do read(a[i,j]);
      min:=a[1,1];max:=a[1,1];
      for i:=1 to n do
        for j:=1 to m do 
        begin
              if a[i,j]<min then min:=a[i,j];
              if a[i,j]>max then max:a[i,j];
        end;
      writeln('Разность между max и min=',(max-min):0:4);
end.

Данная прога работает для n<=100 и m<=100

@Sorvigolova · 19.05.2012, 22:21 **[ТС]**

Только почему то она ошибки выдает,и не запускается

@Vitek.agl · 20.05.2012, 10:41

прошу прощения!писал на скорую руку и не компелировал!в 14 строке пропустил знак "="в присваивании!

Pascal

type matrix=array[1..100,1..100] of real;
var a:matrix;
     min,max:real;
     n,m,i,j:word;
begin
      readln(n,m);
      for i:=1 to n do
        for j:=1 to m do read(a[i,j]);
      min:=a[1,1];max:=a[1,1];
      for i:=1 to n do
        for j:=1 to m do 
        begin
              if a[i,j]<min then min:=a[i,j];
              if a[i,j]>max then max:=a[i,j];
        end;
      writeln('Разность между max и min=',(max-min):0:4);
end.

@Sorvigolova 0 / 0 / 0 Регистрация: 19.05.2012 Сообщений: 4
		1
	Матрица. Найти разность между максимальным и минимальным элементами матрицы 19.05.2012, 18:29. Показов 3041. Ответов 3 Метки нет (Все метки) Дана матрица,содержащая N*M вещественных чисел.Найти разность между максимальным и минимальным элементами матрицы. 0

@Sorvigolova 0 / 0 / 0 Регистрация: 19.05.2012 Сообщений: 4
	19.05.2012, 22:21 [ТС]	3
	Только почему то она ошибки выдает,и не запускается 0

	20.05.2012, 10:41

Опции темы