Var n, i: integer; a: array of integer; begin writeln('введите размерность массива: '); readln(n); setlength(a, n + 1); writeln('введите ', n, ' элементов массива : '); for i : = 1 to n do readln(a[i]); for i : = 1 to n do write(a[i] - 1: 4); end.
Irinalobanowa
14.03.2021
Вверх — переместить робота на одну клетку вверх вниз — переместить робота на одну клетку вниз влево — переместить робота на одну клетку влево вправо — переместить робота на одну клетку вправо закрасить — закрасить текущую клетку (клетку в которой находится робот). так же есть циклы если условие то серия 1 иначе серия 2 все выбор при условие 1 : серия 1 при условие 2 : серия 2 … при условие n : серия n иначе серия n+1 и условия слева стена справа стена снизу стена сверху стена клетка закрашена слева свободно справа свободно снизу свободно сверху свободно клетка чистая
kapriz1999
14.03.2021
1. x=int( if x%2==0: #если число четное x+=2 #следующее четное число больше заданного на 2 else: #если число нечетное x+=1 #ближайшее четное число больше заданного на 1 print(x) 2. int( #день недели первого числа текущего месяца n=int( #число текущего месяца n=n%7-1 #синхронно перемещаемся по календарю ровно по неделям m=(m+n)%7 #прибавляем кол-во дней от первого дня месяца if m==0: #номер воскресенья 7 дает остаток = 0 от деления на 7 print(7) else: print(m) 3. n=int( #рубли m=int( #копейки t=int( #количество шоколадок x=m+n*100 #перевести стоимость 1 шоколадки в копейки x*=t #столько потрачено денег на все шоколадки в копейках n=x//100 #столько потрачено рублей m=x%100 #столько потрачено копеек print(n,end=' руб ') print(m,end=' копеек')
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
5.tarray4. дан массив из n элементов. написать программу, уменьшающую все элементы массива на единицу.