Var i,k,n:integer;
a,b:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then
begin
b[k]:=a[i];
k:=k+1;
end;
end;
write('Элементы: ');
for i:=1 to k-1 do write(b[i],' ');
writeln;
writeln('Колличество отрицательных=',k-1);
<span>end.</span>
Смотри.
Смотришь, сколько раз выполняется твое условие. Здесь указано 4.
Смотришь на условие. Перемещение по X - 3,-2,1. Складываем - конечное перемещение равно 2.
Перемедение по Y - 0,-1,0. Складываем - конечное перемещение равно - 1.
Теперь умножаешь это перемещение (2;-1) на 4 т.к дано в условии, получается твой чертежник оказался после команды в точке (8;-4)
Вопрос таков - какую команду надо выполнить чтобы ВЕРНУТЬСЯ В ИСХОДНУЮ, значит нужно как бы шагнуть назад, с отрицательным значением
-8,4
Ответ :1
Program nums;
<span>var num:array[1..1000] of integer;
</span><span>var i,maxnum: integer;
</span><span>
begin
</span><span>Randomize;
</span><span>for i:=1 to 1000 do num[i] := random(1000000);
</span><span>for i:=1 to 1000 do
</span><span>begin
</span><span>if num[i] > maxnum then maxnum:=num[i];
</span><span>end;
</span><span>Writeln('самое большое число ',maxnum);
</span><span>end.</span>
1) Находим кол-во символов на 1 странице.
40*64=2560 символов.
2) 10 кб переводим в байты.
10 кб = 10240 байты
3) Находим кол-во страниц.
10240/2560 = 4 страницы
<span>ответ 1) 4.</span>