М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
likaoolika
likaoolika
17.02.2023 17:36 •  Информатика

На питон!! 13. Введите с клавиатуры значения элементов массива и уве-личьте на 5 значения всех элементов массива, кроме перво-го и последнего.
14. В массиве чётное число элементов. Введите с клавиатуры значения элементов массива и выполните две операции:
а) увеличьте на единицу значения всех элементов в первой половине массива;
б) увеличьте в 2 раза значения всех элементов во второй половине массива.
15. *Введите с клавиатуры значения элементов массива и най-дите их среднее арифметическое.

👇
Ответ:
keti261
keti261
17.02.2023

13.

numbers = input('Введите через пробел числа ==> ')

arr = numbers.split(' ')

arr = [int(i) for i in arr]

for i in range(1, len(arr)):

___arr[i] = arr[i] + 5

print(arr)

14.

while True:

___numbers = input('Введите числа через пробел ==> ')

___arr = numbers.split(' ')

___if not '' in arr and len(arr) % 2 == 0:

break

___else:

print('Ошибка! Введите четное число элементов или не ставьте в конце пробел!')

arr = [int(i) for i in arr]

for i in range(int(len(arr)/2)): #решение под буквой А

___arr[i] += 1

for z in range(int(len(arr)/2), len(arr)): #решение под буквой Б

___arr[z] *= 2

print(arr)

15.

numbers = input('Введите числа через пробел ==> ')

sum = 0

arr = numbers.split(' ')

arr = [int(i) for i in arr]

for i in range(len(arr)):

___sum += arr[i]

print(sum/len(arr))

4,4(5 оценок)
Открыть все ответы
Ответ:
ksdaga
ksdaga
17.02.2023
// альтернативный вариант
Uses GraphABC;
Begin
SetWindowSize(900,800);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
 line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
 lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.
4,4(28 оценок)
Ответ:
сонька177
сонька177
17.02.2023
Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.
4,7(42 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ