FreePascal

[Student_Dead1nS1de]

Все элементы массива поделить на значение наибольшего элемента этого массива.(НЕ через рандом, а чтобы вводилось пользователем)

Задача состоит из двух подзадач:

1.Поиск максимума.
2.Деление на него элементов массива.

[digitalis]

Из трёх подзадач: забыл ввод массива.
Ну и где хоть малейшие попытки решения? хотя бы

var
   mas: array[0..10] of double;

Поиск Максима - проще некуда:
а) в максимум закидываешь значение первого элемента массива.
б) в цикле проверяешь остальные, если больше, то меняешь значние максимума на найденное.
Далее - деление на этот максимум - просто, как мычание. Тут только одна маленькая засада: если один элемент 0, а остальные отрицательные - этот момент надо отловить и вывести сообщение, чтоб не вылететь по ДЕЛЕНИЕ НА 0 . Но на троечку сойдёт и без этого.

[macomics]

Вот первая подзадача

procedure InputMas();
var
 i: Integer;
begin
  for i := Low(mas) to High(mas) do ReadLn(mas[i]);
end;

Ждем следующих желающих помочь

[digitalis]

Массив: целочисленный или как? ТСу неведомо.

[macomics]

Напиши проще

var
  mas: array [0 .. 9] of variant;

[newerow1989]

const
   n = 5;

type
   mas = array[0..n-1] of real;

function Maxim(p: mas): real;
var i: integer;
begin
   Result:=p[Low(p)];
   for i:=Low(p)+1 to High(p) do
      if Result<p[i] then
         Result:=p[i];
end;

function Divid(p: mas; k: real): mas;
var i: integer;
begin
   for i:=Low(p) to High(p) do
      Result[i]:=p[i]/k;
end;

var i: integer;
    max: real;
    p: mas;
begin
   for i:=Low(p) to High(p) do
   begin
      Write('p[', i, '] = ');
      Readln(p[i]);
   end;
   max:=Maxim(p);
   Writeln('max = ', max:5:8);
   p:=Divid(p, max);
   for i:=Low(p) to High(p) do
      Writeln('p[', i, '] = ', p[i]:5:8);
   Readln;
end.