Уисполнителя три команды, которым присвоены номера: 1. прибавь 1. 2. прибавь 2. 3. прибавь 4. первая из них увеличивает число на экране на 1, вторая увеличивает это число на 2, а третья – на 4. программа для исполнителя программ есть , которая преобразует число 21 на число 30?

Вроде 96 штук программ. вы на всякий случай перепроверьте.

const M = 10;

const N = 5;

var A: array [1..M,1..N] of integer;

var i,j,cnt: integer;

begin

// Задаем элементы матрицы и вывдим ее на экран

randomize();

For i:= 1 to M do

begin

 For j:= 1 to N do

 begin

 A[i,j]:=random(101)-35;

 write(A[i,j]:4);

 end;

 writeln();

end;

// Считаем кол-во отрицательных элементов

For i:= 1 to M do

begin

 cnt:=0;

 For j:= 1 to N do

 begin

 if (A[i,j]<0) then cnt:=cnt+1;

 end;

  writeln('Кол-во отрицательных элементов в строке ',i,' : ',cnt);

end;

end.

const M = 10;

var A: array [1..M] of integer;

var i,res1,res2,res3: integer;

begin

// Задаем элементы массива

For i:= 1 to M do

begin

write('Введите ',i,' элемент массива: ');

readln(A[i]);

end;

res1:=0; // Сумма элементов с четными номерами

res2:=1; // Произведение отрицательных элементов

res3:=0; // Кол-во нечетных элементов

For i:= 1 to M do

begin

if ((i mod 2)=0) then res1:=res1+A[i];

if (A[i]<0) then res2:=res2*A[i];

if ((A[i] mod 2) <> 0) then res3:=res3+1;

end;

writeln('Сумма элементов с четными номерами: ',res1);

writeln('Произведение отрицательных элементов: ',res2);

writeln('Кол-во нечетных элементов: ',res3);

end.