В 3 пункте непонятно. "чему равна температура за первую половину сентября?"
Средняя температура? Половина сентября? в задаче и так прдставлен массив половины сентября - с 1 по 15 число.
uses crt;
const n=15;
var max,min,i,k:integer;
sr:real;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(23)-4;
write(a[i]:3);
end;
writeln;
max:=-4;
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
k:=i;
end;
writeln('a)',k,' day ',max,'temperature');
min:=19;
for i:=1 to n do
if a[i]<min then
begin
min:=a[i];
k:=i;
end;
writeln('a)',k,' day ',min,'temperature');
sr:=0;
for i:=1 to n do
sr:=a[i]+sr;
sr:=sr/n;
writeln('средняя температура за половину сентября ',sr);
k:=0;
for i:=1 to n do
if a[i]<sr then begin inc(k); writeln(i,'сентября'); end;
writeln(k);
end.
Результат выполнения формулы "=A1^3-СТЕПЕНЬ(B1;1/4)+1/B1" в Excel при заданных параметрах будет равен -8
по нубски правдо очень проверить не забудь)
var
a,n,c:integer;
x,y:real;
begin
readln(a);
readln(n);
readln(c);
if ((a > n) and (n > c)) then begin
x:=(a+n)/2;
y:=(n+c)/2;
end else if((n > a) and (a > c)) then begin
x:=(a+n)/2;
y:=(a+c)/2;
end else if((c > a) and (a > n)) then begin
x:=(a+c)/2;
y:=(a+n)/2;
end else if((c > n) and (n > c)) then begin
x:=(c+n)/2;
y:=(n+c)/2;
end else if((n > c) and (c > a)) then begin
x:=(c+n)/2;
y:=(a+c)/2;
end else if((a > c) and (c > n)) then begin
x:=(c+a)/2;
y:=(n+c)/2;
end else if((c > n) and (n > a)) then begin
x:=(c+n)/2;
y:=(n+a)/2;
end;
write('наибольшее: ',x,' наименьшее: ',y);
end.
Begin;
writeln('Площадь поверхности Земли=<span>510100000 км.^2);
writeln('Объём Земли=</span><span>1083 млрд. куб. км.');
writeln('Плотность Земли=</span><span>5,51 г/см^3');
end.</span>
Обратим внимание, что в вопросе указана цифра два, являющаяся последней из цифр, которые используются в троичной системе счисления (0,1,2). Следующей за ней по порядку снова будет ноль, т.е. следующее число окажется кратным трем - основанию троичной системы. Но эта кратность трем также сохранится в любой системе счисления с основанием, превышающим три. Поэтому в десятичной системе счисления искомые числа будут последовательностью, в которой каждое число равно кратному трем за вычетом единицы:
Это общее выражение порождает ряд 2, 5, 8, .. 47, 50 при k=1,2,3,..16,17