164)
var a: array [1..10] of real;
i: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
a[i] := sqr(a[i]);
writeln('[', i, '] => ', a[i]);
end;
<span>end.
169)
var a: array [1..10] of real;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
if (A[i] < 0) then s := s + a[i];
end;
writeln(s);
<span>end.
172)
var a: array [1..10] of real;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
if (A[i] <> 0) then s := s + 1;
end;
writeln(s);
<span>end.
174)
var a: array [1..10] of real;
i, s: integer;
b: real;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
b := b + a[i];
end;
b := b / 10;
for i := 1 to 10 do
begin
if (a[i] > b) then s := s + 1;
end;
writeln(s);
<span>end.
179)
var a: array [1..10] of real;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
if (i mod 2 = 0) then a[i] := sqr(a[i]);
writeln('[', i, '] => ', a[i]);
end;
<span>end.
Вроде так =)</span></span></span></span></span>
Код программы:
<em>program</em><em> </em><em>learning</em><em>;</em>
<em>var</em><em> </em><em>a</em><em>,</em><em> </em><em>c</em><em>:</em><em> </em><em>Integer</em><em>;</em>
<em>begin</em>
<em>c</em><em>:</em><em>=</em><em> </em><em>0</em><em>;</em>
<em>readln</em><em>(</em><em>a</em><em>)</em><em>;</em>
<em>while</em><em>(</em><em>a</em><em> </em><em>mod</em><em> </em><em>2</em><em> </em><em>=</em><em> </em><em>0</em><em>)</em>
<em>do</em><em> </em><em>begin</em>
<em>a</em><em>:</em><em>=</em><em> </em><em>a</em><em> </em><em>mod</em><em> </em><em>2</em><em>;</em>
<em>c</em><em>:</em><em>=</em><em> </em><em>c</em><em>+</em><em>1</em><em>;</em>
<em>end</em><em>;</em>
<em>writeln</em><em>(</em><em>c</em><em>)</em><em>;</em>
<em>end</em><em>.</em>
Язык C++. Решение смотри во вложении.
если сильно надо считывать первое число (длину строки), то поменяй string на массив char
Program n_1;
var x:integer;
begin
readln(x);
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
writeln(x);
end.
