var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.
<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
function AvgLen(fn:string):real;
begin
if FileExists(fn) then
Result:=ReadAllText(fn).ToWords.Select(w->w.Length).Average
else
Result:=0
end;
begin
Writeln(AvgLen(ReadlnString('Имя файла:')):0:2)
end.
<u>Примеры</u>
Имя файла: input.txt
5.42
Имя файла: Pushkin2.txt
5.20
Имя файла: Pascal.txt
7.02
Гляди. Вот у нас первая строчка.
x:=1.5
Это значит, что переменной x мы присвоили значение 1.5
x:= 2*x + 1
Значение переменной x равно её текущему значению x * 2 + 3.
т.е.
x:= 1.5 * 2 + 1 = 4
Затем
y:= x/2
т.е.
y:= 4/2 = 2
Дальше по аналогии:
y:= x + y
т.е.
y = 4 + 2 = 6
и последняя операция:
x:=x - y
x:=4 - 6 = -2
Ответ: x = -2, y = 6
x = -2;
y = 6;
Первая:
var a:array[1..50] of integer;
i,bol,men,ravn:integer;
begin
for i:=1 to 50 do begin
readln(a[i]);
if a[i]=0 then inc(ravn);
if a[i]<0 then inc(men);
if a[i]>0 then inc(bol);
end;
writeln(ravn,' - чисел равных нулю');
writeln(men,' - чисел меньше нуля');
writeln(bol,' - чисел больше нуля');
<span>end.</span>