Данные по температуре воздуха за декаду ноября хранятся в массивеюопределить, сколько раз температура опускалась ниже "-10" градусов.заполнение массива осуществить с клавиатуры.

program pr1; uses crt; var mas: array[1..30] of integer; i,p: integer; beginclrscr; for i: =1 to 30 do begin writeln('t za ',i,' den'); readln(mas[i]); end; p: =0; for i: =1 to 30 do if mas[i]< -10 then p: =p+1; writeln(p); end.

Все цифры рисуются начиная с левого верхнего угла цифра_0 сместиться на вектор (1,0) сместиться на вектор (0,-2) сместиться на вектор (-1,0) сместиться на вектор (0,2) цифра_6   сместиться на вектор (1,0) сместиться на вектор (0,-2) сместиться на вектор (-1,0) сместиться на вектор (0,2)   цифра_7 сместиться на вектор (1,0) сместиться на вектор (-1,-1) сместиться на вектор (0,-1)   цифра_8 сместиться на вектор (1,0) сместиться на вектор (0,-1) сместиться на вектор (-1,0) сместиться на вектор (0,1) поднять перо сместиться на вектор (0,-1) опустить перо сместиться на вектор (1,0) сместиться на вектор (0,-1) сместиться на вектор (-1,0) сместиться на вектор (0,1)   цифра_9   сместиться на вектор (1,0) сместиться на вектор (0,-1) сместиться на вектор (-1,0) сместиться на вектор (0,1) поднять перо сместиться на вектор (1,-1) опустить перо сместиться на вектор (-1,-1)

Var i,s: integer; begin i: =101; while i< 1000 do   begin   s: =s+i;   i: =i+2   end; writeln('ответ: ',s) end.var n,x: integer; beginwrite('введите число: ');   readln(n); while n> 0 do    begin    n: =n div 10;     x: =x+1    end; writeln('цифр: ',x)end.var x,y,z: integer; beginfor x: =0 to 100 do    for y: =0 to 100 do      for z: =0 to 100 do        if (x+y+z=100) and (10*x+5*y+0.5*z=100) then               writeln('быков: ',x,' коров: ',y,' телят: ',z); end.