PROGRAM A22; const max = 42; var vt:array[1..max]of byte; i,n:byte; x:integer;
BEGIN n := max; writeln('Массив из n элементов будет задан случайными числами на интервале [0,3].'); readln(n); write('Введите число которое будет добавлено к каждому элементу.'); readln(x);
writeln('Начальный Массив' ); randomize; for i:=1 to n do begin vt[i]:=random(1,3); write(vt[i], ' '); end; writeln(' ');
writeln('Массив c результатом' ); for i:=1 to n do begin write(vt[i]+x, ' '); end; writeln(' ');
В программе использованы команды эмулятора машины Поста К.Полякова: > N переместить каретку вправо на 1 ячейку и перейти к строке с номером N < N переместить каретку влево на 1 ячейку и перейти к строке с номером N 0 N записать в текущую ячейку «0» (стереть метку) и перейти к строке с номером N 1 N записать в текущую ячейку «1» (поставить метку) и перейти к строке с номером N ? N, M если текущая ячейка содержит «0» (не отмечена), то перейти к строке с номером N, иначе перейти к строке M . остановить программу
![Массив из n элементов задан случайными числами на интервале [0,3] прибавьте к каждому элементу число](/tpl/images/0850/9584/b1a32.jpg)
a) Oтв.: -16
b) Oтв.: -25