<span>56 KB56000 Байт<span>57344 Байт</span></span>
Var n:array [1..999] of integer;
a,i,c:integer;
begin
write ('Введите кол-во элементов: ');
readln (a);
c:=0;
for i:=1 to a do
begin
write ('Введите ',i,' элемент: ');
readln (n[i]);
if n[i]<0 then c:=i;
end;
WRITELN;
write ('Введённый массив: ');
for i:=1 to a do
begin
write (n[i],' ');
end;
WRITELN;
if c>0 then writeln ('Индекс последнего введённого отрицательного элемента ',c) else writeln ('Отрицательных элементов не было введено!');
end.
<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>