поиск максимума и минимума в массиве

Ответ от Александр[гуру]
возмитте готовую

Ответ от Zhenek[гуру]
сначала min и max присваиваете первый элемент массива (под нулевым индексом) затем идете по массиву, если элемент больше max то max присваиваете данный элемент, если меньше min то данный элемент присваиваете min
P.S.: ну или если уж совсем ниче не понятно пишите в личку

Ответ от Thesn[гуру]
Нарыл в инете, не проверял особо.
program Max_search;
uses crt;
const m=50;
type vector=array[1..m] of integer;
var a:vector;
min,imin,i,imax,max,p:integer;
Begin
clrscr;
randomize;
writeln('Создание массива и его вывод');
for i:=1 to m do
begin
p:=random(50);
a [ i ]:=p-30;
write(a[ i ]:4);
end;
max:=a[1];
for i:=2 to m do
if max < a[ i ] then
begin
min:=a[ i ];
imin:=i
end;
writeln;
writeln('значение максимального=',max);
writeln('Индекс максимального=',imax);
writeln('значение минимального=',min);
writeln('Индекс минимального=',imin);
writeln('Для завершения работы нажмите <enter>');
readln
END.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]