Program n1;
var n,i,k: integer;
sum,a: real;
begin
sum:=0;
k:=0;
write('n=');
readln(n);
for i:=1 to n do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
writeln(sum/k);
end.
Как-то так... )))
Смотри картинку...
Формула для надбавки:
=ЕСЛИ(B2<=15;0;ЕСЛИ(B2>25;A2*0,3;A2*0,15))
=ЕСЛИ(стаж<=15;0;ЕСЛИ(стаж>25;оклад*0,3;оклад*0,15))
Формула для всего:
=A2+C2
=оклад+надбавка
var a,b,c,max : real;
begin
read(a,b,c);
max:=(a+b+abs(a-b))/2;
max:=(max+c+abs(max-c))/2;
writeln(max);
end.
Program xxx;
uses CRT;
var
a, i:integer;
begin
readln(a);
while (a<>0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>
Какова скорость оптоволоконного кабеля в Мбит/сек?
а)1024