Ты не в том числе и в других городах. В. В общем,
Const
n = 5;// количество элем массиваvar
a: array [1..n] of integer;
sum, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i] = i then
sum := sum + a[i];
writeln(sum);
end.
<span>Var x,y: real;
Begin
readln (x,y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)
then writeln('YES')
else writeln('NO')
End<span>.
Пример:
4 1
YES</span></span>
1 0 0 0
- 1 1
----------
1 0 1
1 0 0 1 1
+ 1 0 1 1
---------------
1 1 1 1 0
1 0 1
x 1 0 1
-----------------
1 0 1
+ 1 0 1
----------------
1 1 0 0 1