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>
Ответ:что-то с файлами
Объяснение:может неправильно кэш распакован, может не распакован, может его нет.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadReal2;
if a * b > 0 then Println(a - b)
else Println(a / b)
end.
Ответ:
счётчик (d) будет принимать такие значения:
a
a + 1
a + 2
.
.
a + (n - 1)
a + n
Объяснение:
Эти значения зависят от значений переменных a, n.
Конкретные значения можно вывести на экран, составив и выполнив следующую программу:
алг
нач
цел d,a,n
вывод 'введите значение a: '
ввод a
вывод 'введите значение n: '
ввод n
нц для d от a до a+n
вывод d,нс
кц
кон
Var a, b, c, d:integer;
begin
Read(a);
b:=a mod 10;
c:=a mod 100;
d:=c div 10;
WriteLn(b*d);
end.