При поступлении в вуз абитуриенты, получившие "двойку" на первом экзамене, ко второму не допускаются. В массиве A[n] записаны оценки экзаменующиеся, полученные на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену.
Язык программирования Паскаль ABC

нужно

Дана последовательность целых чисел а1, а2, ..an. Образовать новую последовательность, выбросив из исходной те члены, которые равны min (а1, а2..an)

помогите

program p1;const n=10;var i,c:integer; a:array[1..n] of integer=(2,3,4,5,10,2,4,6,9,10);begin for i:=1 to n do begin if(a[i]=2) then c:=c+1; end; writeln('К-во не допущенных: ',c);end.

вот с наперёд массивом =)

program p1;const n=10;var i,c:integer;    a:array[1..n] of integer;begin  for i:=1 to n do  begin  writeln('Введите оценку ',i,' экзаменующегося: ');  read(a[i]);  if(a[i]=2) then c:=c+1;  end;  writeln('К-во не допущенных: ',c);end.