доделал. Pascal
Объяснение:
program basket;
uses crt;
var N,i,k:integer;
rost: array of integer;
fam, kom: array of string;
BEGIN
Clrscr;
writeln('Введите количество учеников');
readln(N);
setlength(fam, N);
setlength(rost, N);
setlength(kom, N);
writeln('Введите фамилии и рост учеников:');
for i:=0 to N-1 do
begin
write('fam[',i,']= ');
read(fam[i]);
write('rost[',i,']= ');
readln(rost[i]);
end;
k:=0;
for i:=0 to N-1 do
if rost[i]>=170 then begin
kom[k]:=fam[i];
k:=k+1;
end;
if k=0 then
writeln('кандидатов нет')
else
writeln('Список претендентов в сборную школы:');
for i:=0 to k-1 do
writeln(kom[i]);
readln;
end.
1) Не надо ничего взламывать
2) Даже если ты хочешь взломать, нужно использовать специальные платные программы и это очень трудно
3) Ты даешь а не 30