Сформировать целочисленный массив из 25 элементов. Элементы массива принимают значения от...

Question

Сформировать целочисленный массив из 25 элементов. Элементы массива

принимают значения от -15 до 20. Найти максимальный элемент и его номер
Плиз очень надо(турбо паскале), за ранее спасибо)!!

Answer 1

Type
  arr=array[1..25] of integer;
var
  ar:arr;
  i,maxi,max:integer;
begin
  randomize;
  max:=-16;
  for i:=1 to 25 do begin
    ar[i]:=(random(36)-15);
    write(ar[i],' ');
    if ar[i]>max then begin
      max:=ar[i];
      maxi:=i;
    end;
  end;
  writeln;
  write(max,' ',maxi);
  readln;
end.

Comments

А почему max присваевается -16