процедуры и функции

[stud3nt]

Извините, еще раз прошу помощи

[mMAg]

type mas = array [1..20] of double;
var x,y,z, xmin, ymin, zmin, t: mas;
    nx, ny, nz: integer;

procedure FillMas (var x : mas; xa : integer;);
var xi : integer;
begin
  for xi := 1 to xa do
  begin
    write(' [', xi, '] ');
    read(x[xi]);
  end;
end;

{нахождение наибольшего элемента одномерного массива}
function MaxinMas (x : mas; xa : integer) : integer;
var xi : integer;
    max : integer;
begin
  max := x[1];
  for xi := 2 to xa do
    if x[xi] > max then
      max := x[xi];
  result := max;
end;

begin
  clrscr;   { очистка экрана }

  write (' Введите количество элементов x: ');
  readln (nx);
  write (' Введите количество элементов y: ');
  readln (ny);
  write (' Введите количество элементов z: ');
  readln (nz);
  fillMas(x,nx);
  fillMas(y,ny);
  fillMas(z,nz);
  xmax := maxinmas(x,nx);
  ymax := maxinmas(y, ny);
  zmax := masinmas(z, nz);

  if (xmax < 0) then
    t := 1 + xmax*xmax
  else
    t := (ymax + zmax)/2;

  write(t);
end.

Разберётесь сами. Код не проверял.

[stud3nt]

Спасибо. помогите пожалуйста осуществтть. немогу разобраться. только надо чтоб массив рандомно сам вводился

[Stilet]

procedure FillMas (var x : mas; xa : integer;);
var xi : integer;
begin
  for xi := 1 to xa do
  begin
    x[xi]:=random(100);
    write(' [', xi, '] ');
  end;
end;

[stud3nt]

Спасибо всем большое!

[_-Re@l-_]

 clrscr;   { очистка экрана }

модуль crt не хочешь подключить?

[mMAg]

Сообщение от _-Re@l-_

 clrscr;   { очистка экрана }

модуль crt не хочешь подключить?

Если это мне, то, как ты мог заметить, программа не целиком здесь, а модули подключаются до объявления типов.