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сли», имеющим
следующий вид:
если условие то
последовательность команд
все
Здесь условие – одна из команд проверки условия.
Последовательность команд – это одна или несколько любых команд-
приказов.
Например, для передвижения на одну клетку вправо, если справа нет стенки,
можно использовать такой алгоритм:
если справа свободно то
вправо
все
В одном условии можно использовать несколько команд проверки условий,
применяя логические связки и, или, не, например:
если (справа свободно) и (не снизу свободно) то
вправо
все
Для повторения последовательности команд можно использовать цикл
«пока», имеющий следующий вид:
нц пока условие
последовательность команд
кц
Например, для движения вправо, пока это возможно, можно использовать
следующий алгоритм:
нц пока справа свободно
вправо
кц
Также у Робота есть команда закрасить, при которой закрашивается клетка,
в которой Робот находится в настоящий момент.
использовать Робот
алг
нач
нц пока сверху стена или снизу стена
закрасить
если сверху свободно то
нц пока сверху свободно
вверх
закрасить
кц
нц пока снизу свободно
вниз
кц
всё
если снизу свободно то
нц пока снизу свободно
вниз
закрасить
кц
нц пока сверху свободно
вверх
кц
всё
вправо
кц
кон
Объяснение:
картинка