Запишите на языке паскаль программу решения номер 34 к § 3.4. считайте рост претендента в команду случайным числом из диапозона от 150 до 200 см, а число претендентов n=50. (номер 34 - объявлен набор в школьную баскетбольную команду. извесьен рост каждого из n учеников, желающих попасть в эту команду. составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см.

# Задание 1

total = 0

num = int(input())

while num != -1:

   total += num

   num = int(input())

print(total)

# Задание 2

num = input().split()

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

print(max(num))

# Задание 3

from random import randint

num = randint(1, 10)

good = False

for i in range(3):

   ans = int(input())

   if ans == num:

       print('Вы угадали!')

       good = True

       break

   elif ans < num:

       print('Загаданное число больше!')

       

   else:

       print('Загаданное число меньше!')

     

if not good:

   print(f'Загаданное число - {num}')

Объяснение:

, протестируйте программы, перед тем как их сдавать куда-либо

Var 
a: array[1..n] of integer; 
k, i, m: byte; 
min: integer;

begin 
Write('Razmer massiva: '); 
Readln(k); 
if (k < 0) or (k > 100) then     
begin       
Writeln('Razmer dolzhen byt bolshe 0 i menshe 100');       
Readln;       
Exit;     
end; 
Randomize; 
Writeln('Ishodn. massiv: '); 
for i:=1 to k do     
begin       
a[i]:=Random(101)-50;       
write(a[i]:4);     
end; 
min:=a[1]; 
for i:=2 to k do   
if a[i] < min then       
begin         
min:=a[i];         
m:=i;       
end; 
a[m] := a[1]; 
a[1] := min; 
Writeln; 
Writeln('Min element = ', min:4, ' v posicii ', m:3); 
Writeln('Rezult. massiv: '); 
for i:=1 to k do     
write(a[i]:4); 
readln;
end.