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

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

Задать свой вопрос
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.
Витя Левтов
могу и очевидно прописать массив если надобно...
Леонид Сибгатулов
необходимо
Нелли Рабоконь
Дана последовательность целых чисел а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.
Tema Sterling
вот с наперёд массивом =)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт