Держи, использовал вектор, так удобнее, надеюсь, что уже вектор.
Объяснение:
использовать Чертежник
алг
нач
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (0,-1)
сместиться на вектор (1,1)
сместиться на вектор (-1,-1)
сместиться на вектор (1,-1)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,0)
опустить перо
сместиться на вектор (1,2)
сместиться на вектор (1,-2)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,0)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (0,-1)
сместиться на вектор (1,1)
сместиться на вектор (-1,-1)
сместиться на вектор (1,-1)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,0)
опустить перо
сместиться на вектор (1,2)
сместиться на вектор (1,-2)
кон
Объяснение:
1)
var a,b,x,i:integer;
begin
readln(a);
x := 0;
for i := 1 to a do
begin
readln(b);
if (b div 100 > 0) and (b div 100 < 10) and (b mod 2 = 0) then
x := x+b;
end;
if x <> 0 then
writeln(x)
else
writeln('NO')
end.
2)
var a,b,x,i,c:integer;
begin
readln(a);
x := 0;
c :=0;
for i := 1 to a do
begin
readln(b);
if ((b mod 10 = 4 ) or (b mod 100 = 4)) and (b mod 8 = 0 ) then
begin
c:=c+b;
x := x+1;
end;
end;
writeln(c/x);
writeln(x)
end.