Program Ok;
var A:array[1..10] of real;
sum:real;i,n:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
read(A[i]);
end;
for i:=10 downto 1 do
begin
if(A[i]>0) then
n:=i;
end;
for i:=1 to 9 do
begin
if (A[n] = A[i+1]) then
sum:=sum+1;
end;
writeln(sum);
end.
A=6
s=0
a=2? нет
s=s+a=0+6=6
a=a-1=6-1=5
a=2? нет
s=s+a=6+5=11
a=a-1=5-1=4
a=2? нет
s=s+a=11+4=15
a=a-1=4-1=3
a=2? нет
s=s+a=15+3=18
a=a-1=3-1=2
a=2? да
Ответ: s=18
Система знаков,для записи чисел.
1100............вот как то так
var i:integer;
begin
for i:=2 to 100 do
if(i mod 2 = 0) then writeln(i);
end.