Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
noxxxxxx
0 / 0 / 0
Регистрация: 14.05.2013
Сообщений: 21
#1

Подсчитать, сколько человек не допущено ко второму экзамену. - Free Pascal

20.05.2013, 13:01. Просмотров 292. Ответов 1
Метки нет (Все метки)

При поступлении в вуз абитуриенты, получившие двойку на первом экзамене, ко второму не допускаются. В массиве А[n] записаны оценки экзаменующихся, полученные на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.05.2013, 13:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подсчитать, сколько человек не допущено ко второму экзамену. (Free Pascal):

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

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

Составить список абитуриентов, допущенных ко второму экзамену
2.Даны действительные числа а1, а2,..., аn. Получить квадратную матрицу порядка...

Составить список абитуриентов, допущенных ко второму экзамену
Решите пожалуйста в паскале:При поступлении в университет лица, получившие...

Составить список абитуриентов, допущенных ко второму экзамену
при поступлении в универ лица, получившие неуд на первом экзамене, ко второму...

Составить список абитуриентов, допущенных ко второму экзамену
При поступлении в университет лица, получившие оценку «неудовлетворительно» на...

1
DauMoH
35 / 35 / 33
Регистрация: 08.05.2013
Сообщений: 60
20.05.2013, 14:15 #2
Лучший ответ Сообщение было отмечено noxxxxxx как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program DauMoH;
 
type
  mas = array[1..1000] of integer;
 
var
  a: mas;
  i: byte;
  k, n: integer;
 
begin
  randomize;
  write('Введите количество абитуриентов: ');
  readln(n); 
  for i := 1 to n do 
  begin
    a[i] := Random(4) + 2;
    if a[i] = 2 then 
      inc(k); 
  end; 
  
  writeln('Количество не допущенных ко второму экзамену: ', k);   
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.05.2013, 14:15
Привет! Вот еще темы с решениями:

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

Подсчитать, сколько студентов знают язык Си, сколько – Turbo Pascal, сколько - оба языка
Сформировать список студентов группы со следующими сведениями: Фамилия, имя,...

сколько человек просматривает созданную тему?
сколько человек просматривает новую созданную тему, в разделе ?

сколько человек находится между i-м и k-м в очереди
1.В очереди стоят n людей, сколько человек находится между i-м и k-м в очереди.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru