Program enot; var a:array [1..10] of integer; i,h:integer; begin h:=0; for i:= 1 to 10 do a[i]:=random(100); for i:=1 to 10 do if a[i] mod 5=0 then h:=h+1; writeln(h); end.
Var a: integer; begin writeln('введите число '); readln(a); if a=1 then writeln('январь. 31 день'); if a=2 then writeln('февраль. 28 дней (29 в високосном году)'); if a=3 then writeln('март. 31 день'); if a=4 then writeln('апрель. 30 дней'); if a=5 then writeln('май. 31 день'); if a=6 then writeln('июнь. 30 дней'); if a=7 then writeln('июль. 31 день'); if a=8 then writeln('август. 31 день'); if a=9 then writeln('сентябрь. 30 дней'); if a=10 then writeln('октябрь. 31 день'); if a=11 then writeln('ноябрь. 30 дней') if a=12 then writeln('декабрь 31 день') end.
i,k : longint;
begin
k:=0;
for i:=1 to 10 do
if (i mod 5)=0 then k:=k+1;
writeln(k);
end.