Используя программу ранжирования, найти произведение наименьшего и 2-х наибольших элементов массива - Pascal ABC

Формулировка задачи:

Используя программу ранжирования, найти произведение наименьшего и 2-х наибольших элементов массива: Т= (-2,1,3,-4,2,0,1,-3,5) Вот мой код:
Const n=9;
      T:array[1..n] of integer=(-2,1,3,-4,2,0,1,-3,5);
Var i,j,temp:integer;
Begin
    For i:=1 to n do
     write(T[i]:3);
    writeln;
    For i:=n downto 2 do
     For j:=2 to i do
      if T[j]<T[j-1] then
      Begin
        temp:=T[j];
        T[j]:=T[j-1];
        T[j-1]:=temp;
      End;
    For i:=1 to n do
     write(T[i]:3);
    writeln;
    writeln('Произведение наименьшего и 2-х наибольших элементов массива = ',T[1]*T[n-1]*T[n]);
    readln;
End.
Компилятор ругается на невозможность присвоить константу, не понимаю в чем ошибка( помогите пожалуйста

Код к задаче: «Используя программу ранжирования, найти произведение наименьшего и 2-х наибольших элементов массива - Pascal ABC»

textual
Const n=9;
type mas=array[1..n] of integer;
const T:mas=(-2,1,3,-4,2,0,1,-3,5);
Var T1:mas;
    i,j,temp:integer;
Begin
    T1:=T;
    For i:=1 to n do
    write(T[i]:3);
    writeln;
    For i:=n downto 2 do
    For j:=2 to i do
    if T1[j]<T1[j-1] then
      Begin
        temp:=T1[j];
        T1[j]:=T1[j-1];
        T1[j-1]:=temp;
      End;
    For i:=1 to n do
     write(T1[i]:3);
    writeln;
    writeln('Произведение наименьшего и 2-х наибольших элементов массива = ',T1[1]*T1[n-1]*T1[n]);
    readln;
End.

14   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы