Вставьте в программу program basket; uses crt; var n,i,k: integer; begin clrscr; writeln('введите количество учеников'); readln(n); writeln('введите фамилию и рост ученика'); for i: =1 to n do begin write('fam[',i,']= '); read(fam[i]); write('rost[',i,']= '); readln(rost[i]); end; k: =0;
for i: =1 to n do if rost[i]> =170 then begin k: =k+1; kom[k]: =fam[i]; end; if k=0 then writeln('кандидатов нет') else writeln('список претендентов в сборную школы'); writeln; for i: =1 to k do writeln(kom[i]); readln end. недостающие строки: fam: array[1..10] of string; rost:
array[1..10] of integer; kom: array[1..10] of string; (паскаль)

Iruna131    1   08.10.2019 03:50    5