Информатика 10 класс решение задач

Uses
  Crt;
Var
  i, N, kol: byte;
  sum_rost, sr_rost: real;
  team: array[1..100] of real;
Begin
  sum_rost := 0.0;
  sr_rost := 0.0;
  kol := 0;
  write('Введите количество членов команды');
  read(N);
  writeln('Введите рост каждого члена команды');
  for i := 1 to N do
    begin
      readln(team[i]);
      sum_rost := sum_rost + team[i];
    end;
  sr_rost := sum_rost / N;
  for i := 1 to N do
    if (team[i] > sr_rost) then
      kol := kol + 1;
  writeln('Количество членов команды, рост которых превышает средний по команде (', sr_rost:4:2, ')');
  write(' равно ', kol);
End.

Я надеюсь надо было на паскале написать?)

№1

mass = [int(input()) for s in range(int(input()))]

mx = sum = 0

for i in range(len(mass)):

   if i % 2 == 0:

       sum += mass[i]

       if mass[i] > mx:

           mx = mass[i]

print(mx, sum)

№2

mass = [int(input()) for s in range(int(input()))]

print(mass)

sum = 0

for i in range(len(mass) - 1, -1, -1):

   if i % 2 == 0:

       mass.pop(i)

   else:

       sum += mass[i]

print(mass)

print(sum)

№3

mass = [float(input()) for s in range(int(input()))]

mn = mass[0]

for i in range(len(mass)):

   if mass[i] < mn:

       mn = mass[i]

       k = i

print(mass[k:])

№4

mass = [input() for s in range(int(input()))]

k = mass.index(' ')

for i in range(3):

   mass.insert(k + 1, mass[k - 1])

print(mass)

Объяснение: