<span>from random import randint mas = [randint(0,100) for i in range(40)] print('40 рандомних чисел\n',mas) seredne = sum(mas) / len(mas) print("Cередне:\n ",seredne) sere = [] for x in mas<span>: </span>----if x >seredne<span>: </span></span>--------<span>sere.append(x) print('Числа більші середнього:\n',sere) vidsotok = (len(sere) /len(mas)) * <span>100 </span>print("Відсоток чисел більших середнього значення :",round(vidsotok,3),'%')
Писал на PascalABC.NET, но постарался как можно ближе к Turbo сделать. Если не заработает - пишите, исправим:)
var f : text; i : integer; s, j: string;
begin Assign(f, 'in.txt'); Reset(f); while not EOF(f) do begin readln(f, s); for i := 1 to length(s) do if ((s[i] = 'a') and ((length(s) < length(j)) or (j = ''))) then j := s; end; writeln(j); end.