Не удается скомпилировать программу - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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