Msk.psu.ivanov; msk.psu.petrov;
msk.pstu.sidorov; msk.pstu.popov;
msk.ipkro.s102; msk.ipkro.s108; msk.ipkro.s11
//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Var
c,i,k:integer;
ar:array[1..n] of integer;
r:real;
begin
readln(c);
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-43,34);
if ar[i]>c then
begin
inc(k);
r:=r+ar[i];
end;
write(ar[i]:4);
end;
writeln;
r:=r/k;
write(r);
end.
Пример ввода:
0
Пример вывода:
Array:
20 -23 23 18 -40 -16 -39 31 -12 21
22.6
var
s : string;
l,i,k,a : integer;
begin
readln (s);
l := Length(s);
k := 0;
a := 0;
for i := 1 to l do
begin
if (s[i]=' ') or (i=l) then
begin
if a = 2 then
k := k +1;
a := 0
end
else
if s[i] ='a' then
a := a +1;
end;
writeln(k);<span>
end.</span>