Const n=50;
Var
a:array [1..n] of integer;
i,k:integer;
Begin
Writeln('Рост всех претендентов:');
Randomize;
k:=0;
for i:=1 to n do
begin
a[i]:=Random(51)+150;
Write(a[i],' ');
if a[i]>=170 then k:=k+1;
end;
Writeln;
Writeln('Количество имеющих шанс: ',k);
End.
Объяснение:
#by MurziK
cand = {}
while True:
name = str(input())
rost = int(input())
ves = int(input())
if name == 'стоп':
break
print(cand)
elif rost > 175 and ves < 80:
cand.append(name)
Const n=50;
Var
a:array [1..n] of integer;
i,k:integer;
Begin
Writeln('Рост всех претендентов:');
Randomize;
k:=0;
for i:=1 to n do
begin
a[i]:=Random(51)+150;
Write(a[i],' ');
if a[i]>=170 then k:=k+1;
end;
Writeln;
Writeln('Количество имеющих шанс: ',k);
End.
Объяснение:
#by MurziK
cand = {}
while True:
name = str(input())
rost = int(input())
ves = int(input())
if name == 'стоп':
break
print(cand)
elif rost > 175 and ves < 80:
cand.append(name)
Объяснение: