Составить программу , которая щаполняет массив d[1..18]случайными целыми числами в диапазоне от -8 до 7, а затем четные числа увеличиваются на 5, а не четные уменьшаются на 1.

Вот что получилось  (смотри скриншоты):

program podriad_idu_na_0;

var

n, x, k, k2:integer;

f:boolean;

begin

read(x);

f:=false;

repeat

if (f=false) and (x mod 10=0) then

begin

f:=true;

k:=k+1;

end

else

if (x mod 10=0) then

k:=k+1

else

begin

if k>k2 then

k2:=k;

k:=0;

f:=false;

end;

read(x);

until x=0;

write(k2);

readln;

end.

program proverka_na_ubivanie;

var

x,t:integer;

begin

read(x);

t:=x mod 10;

x:=x div 10;

while (x > 0) and ( t<x mod 10) do

x:=x div 10;

if x=0 then

write('Да')

else

write('Нет')

end.

program chisla_princip_piki_jami;

var

x,p:integer;

f:boolean;

begin

read(x);

f:=false;

if x>10 then

begin

if (x mod 10)>(x div 10 mod 10) then

p:=1

else

if (x mod 10)<(x div 10 mod 10) then

p:=0

else f:=true;

x:=x div 10;

while (x>10)and(f=false)

do

begin

if ((x mod 10)>(x div 10 mod 10) )and(p=0)then

p:=1

else

if ((x mod 10)<(x div 10 mod 10) )and(p=1)then

p:=0

else f:=true;

x:=x mod 10;

end;

if f=true then write('Нет')

else write('Да')

end

else

write('Слишком маленькое число')

end.

x1 ≈ 2,3

x2 ≈ - 1,3

Смотри картинки

Объяснение:

1) В ячейку B1 пишем y = x*x - 2

2) В ячейку C1 пишем y = x + 1

3) В ячейку A2 пишем x

4) В ячейку B2 пишем y

5) В ячейку C2 пишем y

6) В ячейку A3 пишем -1,5

7) В ячейку A4 пишем -1,25

8) Выделите ячейки А3 и А4 в правом нижнем углу появится зелёный квадратик, а рядом с ним квадратик с выпадающим списком, в котором надо выбрать Заполнение. Потяните за зелёный квадратик вниз до А19.

9) В ячейку В3 пишем формулу = A3*A3-2

10) Копируем ячейку В3, выделяем диапазон В4:В19 и вставляем эту формулу

11) В ячейку С3 пишем формулу =A3+1

12) Копируем ячейку С3, выделяем диапазон С4:С19 и вставляем эту формулу

13) Выделяем диапазон А2:С19 выбираем вкладку Вставка, затем Диаграмма, Точечная. Появляется график.

14) По графику смотрим координаты х в точках пересечения графиков.

15) В ячейку N5 пишем x1 ≈ 2,3

16) В ячейку N6 пишем x2 ≈ - 1,3