При поступлении в вуз абитуриенты, получившие "двойку" ** первом экзамене, ко второму не...

Question

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

Answer 1

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.

Comments

могу и явно прописать массив если надо...

---

нужно

---

Дана последовательность целых чисел а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.

---

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