Вот программа program suma;
var a,q,w,e,r,t,y,u:real;
begin
writeln('Введите температуру воздуха понедельник');
readln(q);
writeln('Введите температуру воздуха вторник');
readln(w);
writeln('Введите чесло температуру воздуха среду');
readln(e);
writeln('Введите чесло температуру воздуха четверг');
readln(r);
writeln('Введите чесло температуру воздуха пятницу');
readln(t);
writeln('Введите чесло температуру воздуха субботу');
readln(y);
writeln('Введите чесло температуру воздуха воскресенье');
readln(u);
a:=((q+w+e+r+t+y+u)/(7));
writeln(a);
<span>end.
Тут всё понятно</span>
var
A: array [1..11] of Real;
i, j, aj, ai: Integer;
amax, atmp, P: Real;
begin
Randomize;
WriteLn ('Исходный массив:');
for i := Low (A) to High (A) - 1 do begin
A [i] := Random * 100;
Write (A [i]:5:2, ' ');
end;
for i := Low (A) to High (A) - 1 do begin
A [i] := Round (A [i]);
end;
for i := Low (A) to High (A) - 1 do begin
amax := A [i];
aj := i;
for j := i to High (A) do begin
if A [j] > amax then begin
amax := A [j];
aj := j;
end;
end;
if i <> aj then begin
atmp := A [i];
A [i] := A [aj];
A [aj] := atmp;
end;
end;
WriteLn;
WriteLn ('Полученный массив:');
for i := Low (A) to High (A) - 1 do begin
Write (A [i]:5:2, ' ');
end;
WriteLn;
Write ('Введите число Р: ');
Read (P);
ai := High (A);
for i := Low (A) to High (A) - 1 do begin
if P > A [i] then begin
ai := i;
Break;
end;
end;
for i := High (A) downto ai + 1 do
A [i] := A [i - 1];
A [ai] := P;
WriteLn ('Массив после вставки:');
for i := Low (A) to High (A) do begin
Write (A [i]:5:2, ' ');
end;
end.
<em>1.</em>
<span><em>program xopow1;</em>
<em> uses
crt;</em>
<em> var
</em>
<em> a, b, Sek: integer;
</em>
<em>begin
</em>
<em>writeln('Введите границы:');
</em>
<em> repeat
</em>
<em> readln(a, b);
</em>
<em> until b >= a;
</em>
<em> clrscr;
</em>
<em> for a := a to b do</em>
<em> begin
</em>
<em>Sek := a * 60;
</em>
<em> writeln(a, ' мин. = ', sek, ' сек.')
</em>
<em> end</em>
<em>
end.</em></span>
<em>2.</em>
<em>program xopow2;</em>
<em> uses crt; </em>
<em>Var</em>
<em> z:integer;</em>
<em> f,x,y:real; </em>
<em>Begin </em>
<em>clrscr; </em>
<em>Writeln;</em>
<em>X:=10000;</em>
<em>Y:=(x/100)*10;</em>
<em>for z:=1 to 7 do </em>
<em> Begin </em>
<em>X:=x+y; </em>
<em>Writeln(Z,' -й день тренировок спортсмен пробежал ',X:3:2,' Км.'); </em>
<em>End; </em>
<em>Writeln('Нажмите Enter...'); </em>
<em>Readln;</em><span><em> </em>
<em>end.</em></span>
N=int(input())
h=n//3600 #кол-во часов
n=n%3600 #остаток после вычета часов
m=n//60 #кол-во минут
s=n%60 #остаток после вычета минут - секунды
h=str(h)
m=str(m)
if len(m)==1:
m='0'+m #отступ 4 пробела от начала строки
s=str(s)
if len(s)==1:
s='0'+s #отступ 4 пробела от начала строки
print(h+':'+m+':'+s)
По таблице истинности полуается 4 решения
