К форматированию таблиц относится 1 5 6 8
<em><u>Пусть начальное двузначное число равно X. Тогда полученное трехзначное число будет равно 200 + X. Зная, что полученное число в 9 раз больше, составим и решим уравнение:</u></em>
<em>200 + X = 9 * X</em>
<em>8 * X = 200</em>
<em>X = 25</em>
<u>Ответ: 25</u>
Var a: array [0..10] of integer;
i, p, o, n: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(100) - 50;
write(a[i], ' ');
if (a[i] > 0) then inc(p);
if (a[i] = 0) then inc(n);
if (a[i] < 0) then inc(o);
end;
writeln();
writeln(p, ' ', n, ' ', o);
<span>end.</span>