Question

Сформировать массив из 15 произвольных чисел. Определить максимальный и минимальный элементы массива, напечатать их значения и индексы

Answer 1

program z;
var a:array[1..15] of integer; max,min,i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(-10,10);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
write('Максимальный = ',max, ' Минимальный = ', min);
end.