НАПИШИТЕ ПРОГРАММУ (ПАСКАЛЬ). Задачка подсчитать кол-во воспитанников, из 12 человек, кто

НАПИШИТЕ ПРОГРАММУ (ПАСКАЛЬ). Задачка подсчитать кол-во учеников, из 12 человек, кто за контрольную работу работу получил 5

Задать свой вопрос
1 ответ
Program znanija;
var
a,b,c:integer; znanijacom:array [1..12] of integer;
Begin
a:=12;
for b:=1 to 12 do begin
znanijacom[b]:=random(5+1);
if znanijacom[b]=5 then c:=c+1;
End;
writeln('5 получили ',c,' человек');
End.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт