Var
a,n,i,k:integer;
Begin
Readln(n);
k:=0;
i:=0;
while i<n do
Begin
readln(a);
if a>0
then k:=k+1;
i:=i+1;
end;
Writeln(k);
End.
Если не будет хватать одного выполнения то напишешь "while i<n+1 do"
Ответ:
1. Вращение - картинка 2
2. Смещение - картинка 4
3. Перемещение - картинка 1
4. Тяни/Толкай - картинка 3
Незаходить в кабинет учетиля без разрешения 2проверить рабочие место 3 проверить влажные ли руки
var prod,i:integer;
begin
prod:=1;
for i:=10 to 99 do
if(i mod 15=0) then prod:=prod*i;
writeln(prod)
end.