1)
var
mas: array [1..5] of integer;
i:integer;
begin
for i:=1 to 5 do
read(mas[i]);
for i:=1 to 5 do begin
mas[i]:=mas[i]-20;
write(mas[i],' ');
end;
end.
2)
var
mas: array [1..8] of real;
i:integer;
begin
for i:=1 to 8 do
read(mas[i]);
for i:=1 to 8 do begin
if i mod 2 = 0 then
write(mas[i]-1,' ')
else
write(mas[i]+1,' ')
end;
end.
Если это задание для Кумира, то вот нужный алгоритм:
использовать Робот
алг
нач
цел п
нц пока снизу свободно
вниз
кц
нц для п от 0 до 1
нц пока снизу стена
закрасить
влево
кц
нц пока снизу свободно и п=0
влево
кц
кц
вниз
нц для п от 0 до 2
нц пока сверху свободно и п<2
вправо
кц
нц пока сверху стена
закрасить
вправо
кц
кц
кон
Ну незнаю в моем компютере восемь
print('Вводите числа в одной строке через пробел:')
a = list(map(int,input('Ввод: ').split()))
max = -99999
min = 99999
pos = -1
maxpos = False
for i in a:
if i > max:
max = i
if i < min:
min = i
for i in a:
pos += 1
if (i == max) and (maxpos == False):
maxpos = pos
if i == min:
minpos = pos
a[maxpos] = min
a[minpos] = max
print('Вывод: ',end='')
for i in range(0,len(a)):
print(a[i],end=' ')
Земледелец- это крестьянин, занимающийся земледелием, сельским хозяйством.
Животновод- это человек, работающий на ферме, занимается разведением и уходом за скотом.