Var
x:array[1..10] of real;
i,n:integer;
begin
for i:=1 to 10 do begin
writeln('Введите лемент №',i);
readln(x[i]);
if x[i]=5 then
inc(n);
end;
writeln('Всего пятерок ',n);
<span>end.</span>
125=1 111 101
41=101 001
512=1 000 000 000
F1=lambda a,b: a/b
f2=lambda a,b: a if a<b else b
f3=lambda a,b: '=' if a==b else ('<' if a<b else '>')
procent=lambda a: a/100
#примеры
p=print
p(f1(8,2),f1(2,4))
p(f2(5,7),f2(4,3))
p(f3(5,6),f3(5,5),f3(7,3))
p(procent(40))
#результат
#4 0.5
#5 3
#< = >
#0.4
3 221 225 472 - 3 миллиарда 221 миллион 225 тысяч 472 байта в 3ГБ