<em><u>С учетом замечания в комментарии: "</u></em><span><em><u>простите там НИЖЕ среднемесячной"</u></em></span><em><u /></em>
алг Температура
нач
цел n,i,k
вывод "Количество дней в месяце: "
ввод n
цел таб t[1:n]
вещ ТСред
ТСред:=0
вывод "Вводите ежедневную температуру",нс
нц для i от 1 до n
ввод t[i]; ТСред:=ТСред+t[i]
кц
k:=0; ТСред:=ТСред/n;
нц для i от 1 до n
если t[i]<ТСред то k:=k+1 все
кц
вывод "Количество дней с температурой больше среднемесячной: ",k,нс
кон
Ну если я ничего не путаю то решается это так берёшь лист тетради в клетку ставишь точку она будет нулевой (тип система отсчёта) теперь выполняем алгоритм из точки (0,0) мы оказались в точке (1,1) при этом мы путь до этой точке не чертили так как это не написано в программе теперь начинается цикл в котором мы уже будем чертить путь передвижения так как у нас это заданно в программе
и если я ничего не напутал получаем такой рисунок
program z1;
uses crt;
var n,m,i:integer;
begin
repeat
writeln('Введите числа');
readln(n,m);
until n<m;
for i:=n to m do
begin
if i mod 2 =0 then write(i:4);
end;
end.
Var r,h:integer;
v1,v2:real;
begin
writeln('Ввод радиуса: ');
readln(r);
writeln('Ввод высоты цилиндра: ');
readln(h);
v1:=2*pi*r*h;
v2:=4/3*pi*(r*r);
if v1>v2 then write('Объем цилиндра больше')
else write('Объем шара больше');
end.
Флешка, жесткий диск, дискета, диски.