НАПИШИТЕ ПРОГРАММУ (ПАСКАЛЬ). Задача подсчитать кол-во учеников, из 12 человек, кто за контрольную работу работу получил 5
Answers & Comments
Анжой
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.
Answers & Comments
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.