Копирование массива в функцию

[Njkzy91]

Всем привет задача следующая:
1. Заполнить массив в основной программе. 2. Найти максимальный элемент массива в функции.
Задачу надо сделать в Turbo Pascal.
На самом деле задача посложнее, но суть её выше. Просто никак не могу понять как из основной программы скопировать массив в функцию. С поиском максимального элемента проблем нету.

[Вадим Мошев]

В смысле, передать массив функции в качестве аргумента?
Можно так:

const
	n = 100;

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

var
	A: mas;
	
{....}

function F(A: mas): real;
begin
{тело функции}
end;

{что-то ещё}

{основная программа}
begin
{как-то получаем массив A}

x:=F(A);
end.

[Njkzy91]

Да передать массив в качестве аргумента функции, в этой функции определить максимальный элемент массива, и передать его (максимальный элемент) основной программе (функции).

const
	n = 8;

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

var
	A: mas;
        i, max, x: integer;
	
{....}

function F(A: mas): real;
begin
{тело функции}
{тут надо найти максимальный элемент массива А, и к своему стыду никак не могу понять как это сделать(запутался)}
end;



{основная программа}
begin
  randomize;
  {Заполняем и выводим массив}
  for i:=1 to 8 do
  begin
      A[i]:=random(100)-50;
      write(A[i], ' ');
  end;
  

x:=F(A);
{тут надо вывести на экран максимальный элемент массива, который должен быть найден в функции F}
end.

[Вадим Мошев]

что конкретно не получается у вас?

[Donald Ervin Knuth]

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

Всем привет задача следующая:
1. Заполнить массив в основной программе. 2. Найти максимальный элемент массива в функции.
Задачу надо сделать в Turbo Pascal.
На самом деле задача посложнее, но суть её выше. Просто никак не могу понять как из основной программы скопировать массив в функцию. С поиском максимального элемента проблем нету.

program mas28;
type
inmas=array[1..100] of integer;
var
mas:inmas;
f,n,i:integer;
{  -- функция---}
function max(locmas:inmas):integer;
var
maxkip,k:integer;
begin
maxkip:=locmas[1];
  for k:=2 to 100 do
    begin 
      if maxkip<locmas[k] then maxkip:=locmas[k];
    end;
    max:=maxkip;
end;
{-- основная--}
begin
writeln('Ведите количество элементов массива n= ');
readln(n);
writeln('Ведите элементs массива= ');
for i:=1 to n do
readln(mas[i]);
{-- подключаем функцию---}
f:=max(mas);
writeln('Максимальный элемент массива=  ',f);
end.

[min@y™]

2. Найти максимальный элемент массива в функции.

а если максимальных элементов несколько?

[Вадим Мошев]

Сообщение от min@y™

а если максимальных элементов несколько?

Думаю, будет найден последний из них

[min@y™]

Сообщение от Вадим Мошев

Думаю, будет найден последний из них

а по заданию-то как? это я автору

[Njkzy91]

Сообщение от min@y™

а если максимальных элементов несколько?

В задании про это ничего не сказано. Но random(1000)-500 таких трюков допустить не должен.

[Njkzy91]

Donald Ervin Knuth, Огромное спасибо!