Сложите числа, а затем проверьте результаты, выполнив соответствующие десятичные сложения: 167(8) и 37(8)Заранее спасибо.

Поскольку неясно, что делать, если в массиве несколько минимальных или максимальных элементов, то считаем, что их только по одному.

const n=10;
var
  a: array[1..n] of integer;
  mn,mx: integer;
  i,k1,k2: byte;
begin
  mn:=maxint;
  mx:=-maxint;
  writeln ('Введите ',n,' чисел: ');
  for i:=1 to n do begin;
    read (a[i]);
    if a[i]<mn then begin mn:=a[i]; k1:=i end;
    if a[i]>mx then begin mx:=a[i]; k2:=i end;
  end;
  for i:=1 to n do 
    if (i>min(k1,k2)) and (i<max(k1,k2)) then a[i]:=0;
  writeln;
  writeln ('Местоположение минимального элемента: ',min(k1,k2));
  writeln ('Местоположение максимального элемента: ',max(k1,k2));
  writeln;
  print (a);
end.

--------------------------------------------
Пример:
Введите 10 чисел: 5 2 9 4 6 8 2 1 3 7

Местоположение минимального элемента: 3
Местоположение максимального элемента: 8

5 2 9 0 0 0 0 1 3 7
  

А,г,б,в)))))))))))))))))))

Var
s,n,i:integer;

begin
  n:=121;
  s:=0;
  for i:=1 to n do
       s:=s+sqr(i);
  writeln(s);
  readln;
end.