Пожалуйста,помогите !!!!!

[Анастасия 258]

Составить программу с использованием подпрограммы функции,которая находит наибольший и наименьший элемент массива. При n=10 элементов.

[Serge_Bliznykov]

Настя, ну так же нельзя!
Поиск максимума/минимума - это "азбука" программирования.
Нужно в цикле перебрать элементы массива, сравнивая с запомненным минимальным (для поиска минимума) и максимальным (для поиска максимума)

примерно так:

const n=10;
var tarray = array[1..n] of integer;

procedure FindExtreme(A : tarray; var Min, Max : integer);
var i : integer;
begin  
  Min := A[1]; {изначально считаем, что минимальный элемент - первый в массиве}
  Max := A[1]; {изначально считаем, что максимальный элемент - первый в массиве}
 
  for i:=1 to n do begin
     if A[i]<Min then Min:=A[i];
     if A[i]>Max then Max:=A[i];
  end;

end;  {-- конец процедуры}

вот и всё.

[min@y™]

258 - что это?

[zvygin1964]

2+3=>5+3=>8+3=11
Нажимать не удобно. Это робот.

[type_Oleg]

Serge_Bliznykov, ей надо

Сообщение от Анастасия 258

..с использованием подпрограммы функции..

а у вас подпрограмма - процедура

В принципе, можно и функцию. Только функция обычно возвращает значение одной переменной.
Поэтому можно так:

function FindMaxMin(A : tarray; var Min : integer):Integer;

- а макс. - сама функция.

Хотя, возвращаемый тип может быть любой. Значит можно и так

type tMinMax=record
 Min,Max:Integer;
end;
function FindMaxMin(A : tarray):tMinMax;

PS Кстати, не написано, что числа - именно целые. Так что может быть и не Integer

[Arigato]

Название темы знакомое, где-то уже видел такую...

[Serge_Bliznykov]

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

Название темы знакомое, где-то уже видел такую...

Да Вы шутите! Не может того быть!