Var
st:real;
i,n:integer;
t:array[1..31]of integer;
begin
writeln('Температура в январе:');
for i:=1 to 31 do
begin t[i]:=random(-10,5);
write(t[i],' ');
st:=st+t[i];
if t[i]<0 then n:=n+1
end;
st:=st/31;
writeln;
writeln('Число дней с отр.температурой: ',n);
writeln('Средняя температура: ',st:1:1)
<span>end.</span>
2*30*16=960 (сек*бит)
3*10^6 байт = 24*10^6 бит
24 000 000/960 =
Var i,n,nmb: integer;
<span> dg,sm: real;
</span><span>begin
</span><span> sm:=0; nmb:=0;
</span><span> write('n = ');
</span><span> readln(n);
</span><span> write('числа через пробел: ');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> read(dg);
</span><span> if dg<0 then</span><span>
</span> begin
<span> sm:=sm+dg;
</span><span> nmb:=nmb+1;
</span><span> end;
</span><span> end;
</span><span> writeln('сумма отрицательных чисел = ',sm);
</span><span> writeln('среднее арифметическое = ',sm/nmb);
</span><span>end.
</span>
Procedure sumd;
var s,n: integer;
begin
s:=0; n:=0;
repeat
s:=s+n;
read(n);
until n<0;
writeln('сумма: ',s);
end;
// сновная программа
begin
assign(input,'input.txt');
sumd;
end.
файл input.txt: 11 15 21 13 -5
сумма: 60