program raf105;
const
n = 5;
var
a: array[1..n] of integer;
x,max,min,i: integer;
begin
writeln('Введите ',n,' по очереди');
for i:=1 to n do
readln(a[i]);
max:= a[1];
min:= a[1];
for i:=1 to n do
begin
if max < a[i]
then max:= a[i];
if min > a[i]
then min:= a[i];
end;
writeln;
write('Массив: ');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Наибольший элемент: ',max);
writeln('Наименьший элемент: ',min);
end.
2.program raf105;
const
n = 5;
var
a: array[1..n] of real;
x,i: integer;
min: real;
begin
writeln('Введите ',n,' по очереди');
for i:=1 to n do
readln(a[i]);
writeln;
write('Исходный массив: ');
for i:=1 to n do
write(a[i],' ');
min:= a[1];
for i:=1 to n do
if min > a[i]
then min:= a[i];
for i:=1 to n do
a[i]:= a[i]/min;
writeln;
write('Изменённый массив: ');
for i:=1 to n do
write(a[i],' ');
end.
3.program raf105;
const
n = 8;
var
a: array[1..n] of integer;
x,i,max: integer;
begin
writeln('Введите ',n,' по очереди');
for i:=1 to n do
readln(a[i]);
writeln;
write('Исходный массив: ');
for i:=1 to n do
write(a[i],' ');
max:= a[1];
for i:=1 to n do
if max < a[i]
then max:= a[i];
for i:=1 to n do
a[i]:= a[i]+max;
writeln;
write('Изменённый массив: ');
for i:=1 to n do
write(a[i],' ');
end.
PascalABC 3.4.2
Незнаю как првильно даже ответить, может так(вмосто робота чертёжник):
Исполнитель Робот умеет перемещаться по лабиринту, начерченному
на плоскости, разбитой на клетки. Между соседними (по сторонам)
клетками может стоять стена, через которую Робот пройти не может.
У Робота есть восемь команд. Четыре команды – это команды-приказы:
вверх вниз влево вправо
При выполнении любой из этих команд Робот перемещается на одну клетку
соответственно: вверх ↑, вниз ↓, влево ←, вправо →. Если Робот получит
команду передвижения через стену, то он разрушится.
Ещё четыре команды – это команды проверки условий. Эти команды
проверяют, свободен ли путь для Робота в каждом из четырёх возможных
направлений:
сверху свободно снизу свободно слева свободно справа свободно
Эти команды можно использовать вместе с условием «eсли», имеющим
следующий вид:
если условие то
последовательность команд
все
Здесь условие – одна из команд проверки условия.
Последовательность команд – это одна или несколько любых команд-
приказов.
Например, для передвижения на одну клетку вправо, если справа нет стенки,
можно использовать такой алгоритм:
если справа свободно то
вправо
все
В одном условии можно использовать несколько команд проверки условий,
применяя логические связки и, или, не, например:
если (справа свободно) и (не снизу свободно) то
вправо
все
Для повторения последовательности команд можно использовать цикл
«пока», имеющий следующий вид:
нц пока условие
последовательность команд
кц
Например, для движения вправо, пока это возможно, можно использовать
следующий алгоритм:
нц пока справа свободно
вправо
кц
Также у Робота есть команда закрасить, при которой закрашивается клетка,
в которой Робот находится в настоящий момент.
В восьмеричную: 71718 - 214046, 22222 - 53316, 131 - 203, 101010 - 305222, 1351 - 2507.
В шестнадцатеричную: 135790 - 2126E, 99999 - 1869F, 3001 - BB9.
Из двоичной в восьмеричную: 010101110 - 256, 001011101110 - 1356, 001110011100111 - 16347.
Из двоичной в шестнадцатеричную: 0011110111101111 - 3DEF, 101010 - 2A, 001100110011000101010101 - 333155.