Const
m = 10;
var
a: array[1..m+1] of integer;
i, k: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
write (a[i],'; ');
end;
writeln;
write('Введите число: ');
readln(k);
for i:=m+1 downto 1 do
begin
a[i]:=a[i-1];
if a[i] mod 2=0 then
begin
a[i-1]:=k;
break;
end;
end;
write('Измененный массив: ');
for i := 1 to m+1 do
write (a[i],'; ');
<span>end.</span>
Var a:array[1..100] of integer;
<span>i,n:integer; </span>
<span>begin </span>
<span>writeln('Введите количество элементов массива'); </span>
<span>read(n); </span>
<span>writeln('Введите элементы массива'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if i mod 3 = 0 then a[i]:=0; </span>
<span>end; </span>
<span>for i:=1 to n do write(a[i],' '); </span>
<span>end.</span>
ДЛЯ ОБЕСПЕЧЕНИЯ НОРМАЛЬНОЙ РАБОТЫ КОМПЬЮТЕРА,ЕГО ОБСЛУЖИВАНИЯ И НАСТРОЙКИ.
цикл будет выполнчятся 5 раз
===== PascalABC.NET =====
begin
var (a, b) := ReadInteger2('Введите A и B:');
if (a > 9 * b) then
Println('Нет решения')
else
begin
var s := (a div 9) * '9' + (a mod 9).ToString;
s += (b - s.Length) * '0';
s.Println
end
end.