Спасайте!) Нужна помощь с программой по Паскалю.

[shewlett]

Нужна или блок схема или готовая программа, или просто словами объясните как это сделать. Я не понимаю
"Рассматривая индексы элементов массива 'М' как координаты точек на плоскости, найти 'd' - расстояние между наибольшим и наименьшим элементом массива."
Помогите...

[challengerr]

Решение может быть неоднозначным, если элементы в массиве повторяются. Расстояние это разность индексов, если я правильно понимаю условие. Наибольший и наименьший элемент определяются переборов всех элементов массива.

[NetSpace]

понятно, нужно пройтись по всему квадратному массиву, запомнить координаты [I;J]максимального и минимального элемента, а потом по теореме Пифагора (у нас же плоскость, даже есть координаты [I,J]) вычислить расстояние d между этими МИН и МАКС

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
const N=4;
var A:array[1..N,1..N]of Integer=((1,2,3,4),(5,6,8,9),(14,35,10,7),(8,4,3,2));
    Xmin,Xmax,Ymin,Ymax,Min,Max,i,j:Integer;
    d:Real;
    C:Char;
begin
   Min:=10000;
   Max:=-10000;
   Xmin:=0;
   Xmax:=0;
   Ymin:=0;
   Ymax:=0;
   for i:=1 to N do for j:=1 to N do
   begin
      if(Max<A[i,j])then
      begin
         Max:=A[i,j];
         Xmax:=i;
         Ymax:=j;
      end;
      if(A[i,j]<Min)then
      begin
         Min:=A[i,j];
         Xmin:=i;
         Ymin:=j;
      end;
   end;
   d:=sqrt((Xmax-Xmin)*(Xmax-Xmin)+(Ymax-Ymin)*(Ymax-Ymin));
   writeLn(d);
   Read(c);
end.

[shewlett]

Сообщение от NetSpace

понятно, нужно пройтись по всему квадратному массиву, запомнить координаты [I;J]максимального и минимального элемента, а потом по теореме Пифагора (у нас же плоскость, даже есть координаты [I,J]) вычислить расстояние d между этими МИН и МАКС

Спасибо, уже понятней) А можете поподробней объяснить как именно мы находим расстояние между макс и мин элементами?

[NetSpace]

смотри пост выше -я там код приписал. рабочий =)))
если помог - жми на весы

[Stilet]

Пару комментов:
1) Min,Max можно убрать в пользу:

      if(A[Xmax,Ymax]<A[i,j])then
      begin
         Xmax:=i;
         Ymax:=j;
      end;
      if(A[i,j]<A[Xmin,Ymin])then
      begin
         Xmin:=i;
         Ymin:=j;
      end;

2) Read(c); лучше заменить на readln. Во-первых это избавляет от лишней переменки, а во вторых это в конце программы еще не принесет проблем, но если захочется вдруг в середине поставить, могут быть сложности с последующим вводом.

Это все к слову, и не влияет на работоспособность вышеприведенного кода.

[Аватар]

Рассматривая индексы элементов массива 'М' как координаты точек на плоскости, найти 'd' - расстояние между наибольшим и наименьшим элементом массива.

А я этого не понимаю. Логики в этой фразе минимум

ЗЫ

дошло

[shewlett]

Сообщение от NetSpace

смотри пост выше -я там код приписал. рабочий =)))
если помог - жми на весы

Нажму с превеликим удовольствием :D Благодаря Вам, у меня 4 за экзамен по информатике. Счастью нет предела!) Спасибо!

[Stilet]

Логики в этой фразе минимум

Она просто звучит так как будто препод хочет сказать студенту "Сынок, армия из тебя сделает человека"