почему в данной программе по условию мы вводит отрицательные числа?

[Zer0]

По условию дана только размерность матрицы (17х17), про диапазон чисел там ничего нет, можно хоть отрицательные, хоть 100-значные - суть останется одна и та же

[Настяyu]

а зачем мы вводим отрицательные? просто так что ли?)_

[Zer0]

Я это написал в первом же ответе

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

Ну наверное просто так)

Потому что никакой существенной роли это не играет (за исключением одного моментика:

max_value := -100;

Для того чтобы программа работала правильно, числа не должны быть меньше, чем эти -100

[Настяyu]

Блин....)я боюсь если я преподше отвечу, она скажет не тааак))
ладно, будь что будет)
Спасибо большое)

[Zer0]

http://pascalabc.net/WDE/?file=00547.pas

Посмотрите эту программу, она чуть компактнее и вроде бы проще (и избавлена от той проблемы, о которой я написал), да и диапазон чисел которые будут генерироваться можно сразу ввести

[Настяyu]

что-то не грузит...
Сейчас,может загрузит)
спасибо Вам!))))

[Настяyu]

не грузит он короче...
надеюсь, так прокатит)

[Zer0]

Тогда просто сюда напишу

const r=17;
Type
matrix=array[1..r, 1..r] of real;

var a:matrix;
    i,j,min_diap,max_diap:integer; max_val:real;

begin
 randomize;
 write ('Введите диапазон значений для матрицы: ');
 readln(min_diap,max_diap);
 writeln ('Исходная матрица: ');
 for i:=1 to r do begin
  for j:=1 to r do begin
   a[i,j]:=random(max_diap-min_diap+1)+min_diap;
   write (a[i,j]:6:1,' ');
   if (i=1) and (j=1) then max_val:=a[i,j]
   else
   if (a[i,j]>max_val) then max_val:=a[i,j];
  end;
  writeln;
 end;
  writeln ('Индексы максимальных элементов:');
 for i:=1 to r do
  for j:=1 to r do 
   if a[i,j]=max_val then
    write ('(',i,';',j,') ');
 readln;
end.

[Настяyu]

ой, спасибо...я только не пойму, что значит diap?
объясните мне бездари, плиз))

[Zer0]

min_diap, max_diap - границы диапазона, в котором будут генерироваться числа
Например, если ввести:
-100 100, то матрица заполнится только числами от -100 до 100
Если ввести -5 10, то соответственно от -5 до 10