В 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.
begin writeln('Введите скорость катера (vk) и скорость течения реки (vt) в км/ч: '); read(vk,vt); writeln('Введите время (t) в часах: '); read(t); writeln('Катер за ',t,'ч. пройдет ',t*(vk+vt),' км'); end.
2.
var n,x: real;
begin writeln('Введите кол-во кактусов: '); read(x); writeln('Сколько кактусов было побрито? '); read(n); if (x - n) < x/2 then writeln('Гладких кактусов больше.'); if (x - n) = x/2 then writeln('Небритых и гладких поровну.'); if (x - n) > x/2 then writeln('Небритых кактусов больше.'); end.
Средняя температура? Половина сентября? в задаче и так прдставлен массив половины сентября - с 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.
var
t,vk,vt: real;
begin
writeln('Введите скорость катера (vk) и скорость течения реки (vt) в км/ч: ');
read(vk,vt);
writeln('Введите время (t) в часах: ');
read(t);
writeln('Катер за ',t,'ч. пройдет ',t*(vk+vt),' км');
end.
2.
var
n,x: real;
begin
writeln('Введите кол-во кактусов: ');
read(x);
writeln('Сколько кактусов было побрито? ');
read(n);
if (x - n) < x/2 then writeln('Гладких кактусов больше.');
if (x - n) = x/2 then writeln('Небритых и гладких поровну.');
if (x - n) > x/2 then writeln('Небритых кактусов больше.');
end.