10,11,12,21,22 так как алфавит троичной системы 0,1,2
program qq;
var s,i,n:integer;
a:array [0..1000] of integer;
begin
s:=0;
readln (a[0]);
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]>a[i-1] then
s:=s+1;
end;
writeln(s);
end.
"больше за i-й элемента массива" - это вообще не понятно, пожалуйста в следующий раз пишите вопрос корректнее
Var i,k,p,r,m,n: integer;
<span>begin
</span><span> write('размер клетки k = '); readln(k);
</span><span> write('радиус круга r = '); readln(r);
</span><span> n:=r div k;
</span><span> if ((r mod k)>0) then inc(n);
</span><span> m:=0; p:=n-1;
</span><span> for i:=1 to n-1 do
</span><span> begin
</span><span> if Ceil(sqrt(r*r-k*i*k*i))<=p*k then
</span><span> begin
</span><span> p:=p-1;
</span><span> m:=m+n-i;
</span><span> end;
</span><span> end;
</span><span> m:=4*n*n-4*m;
</span><span> writeln(m);
</span><span>end.
</span>размер клетки k = 1
<span>радиус круга r = 5
</span><span>88
</span>размер клетки k = 3
<span>радиус круга r = 7
</span><span>32
</span>размер клетки k = 4
<span>радиус круга r = 5
</span><span>12
</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
type
st=record
ball:real;
nam:string
end;
begin
var n:=ReadlnInteger;
var res:=new st[n];
var buf:st;
for var i:=0 to n-1 do begin
Readln(buf.nam);
buf.ball:=0.0;
res[i]:=buf
end;
loop 6 do begin // по условию тут надо написать 30, 6 - это для примера
var p:=ReadlnString.ToWords;
var id:=res.FindIndex(t->t.nam=p[1]);
if id>-1 then res[id].ball+=p[0].ToReal;
end;
var imax:=res.Select(t->t.ball).ToArray.IndexMax;
res[imax].nam.Println
end.
<u>Пример</u>
3
Леонид
Мария
Константин
18.7 Мария
3.01 Леонид
9.12 Леонид
43.4 Мария
5.3 Константин
0.52 Леонид
Мария