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

Question

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

Answer 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.