Var a: array[1..10] of integer;
<span> b: array[1..10] of real;
</span><span> i,n: integer;
</span><span> s: real;
</span><span>begin
</span><span> s:=0; n:=0;
</span><span> write('массив a: ');
</span><span> for i:=1 to 10 do
</span><span> begin
</span><span> read(a[i]);
</span><span> if a[i]<0 then
</span><span> begin
</span><span> s:=s+a[i];
</span><span> n:=n+1;
</span><span> end;
</span><span> write(a[i],' ');
</span><span> end;
</span><span> s:=s/n;
</span><span> writeln;
</span><span> writeln('среднее арифметическое отрицательных: ',s);
</span><span> writeln('количество отрицательных: ',n);
</span><span> write('массив b: ');
</span><span> for i:=1 to 10 do
</span><span> begin
</span><span> if a[i]<0 then b[i]:=s
</span><span> else b[i]:=a[i];
</span><span> write(b[i]:7:3);
</span><span> end;
</span><span>end.
</span>массив a: 2 2 -3 1 -5 -6 -5 9 -7 5
<span>среднее арифметическое отрицательных: -5.2
</span><span>количество отрицательных: 5
</span><span>массив b: 2.000 2.000 -5.200 1.000 -5.200 -5.200 -5.200 9.000 -5.200</span><span> 5.000
</span><span>
</span>
Var S : String;
n : Byte;
Begin
Readln(S);
While Pos('а',S)>0 do
Begin
Inc(n);
S[Pos('а',S)]:='б';
end;
Writeln(S,' всего замен: ',n);
end.
1.
var
a : integer;
begin
read (a);
writeln (sqrt (a) * 4);
end.
2.
var
x : integer;
begin
read (x);
if (x mod 2 = 0) then writeln ('Четное')
else writeln ('Нечетное');
if (x mod 3 = 0) then writeln ('Делится на 3')
else writeln ('Не делится на 3');
end.
10100100=1*2⁷+0*2⁶+1*2⁵+0*2⁴+0*2³+1*2²+0*2¹+0*2⁰=128+32+4=164
X - 1 сторона
y - 2 сторона
Исходя из условия можно составить систему уравнений.
{x*y=180
{(x-2)(y+3)=180
x=12, y=15