Не удается скомпилировать программу - Turbo Pascal

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

Var
a:array[1..n] of integer;
i, min, max,k:integer;
mid:real;
begin
write('Кол-во элементов массива: ');
readln(n);
for i:=1 to n do
readln(a[i]);
max:=0; k:=0;
for i:=1 to n do
if a[i]> max then max:=a[i];
min:=max;
for i:=1 to n do
if a[i]<min then min:=a[i];
mid:=(max+min)/2;
for i:=1 to n do
if a[i]>mid then k:=k+1;
writeln(k,' чисел');
end.

при компиляции вылетает ошибка( Неизвестное имя 'n')

Решение задачи: «Не удается скомпилировать программу»

textual
                            Листинг программы 
                        

                            const nmax=20;
Var
a:array[1..nmax] of integer;
n,i, min, max,k:integer;
mid:real;
                        

Оцени полезность:

6 голосов , оценка 4.333 из 5

Похожие ответы