Question

1. Сделайте эту программу работоспособной. 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.

Answer 1

Ответ:

доделал. 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.

Answer 2

Pascal

program basket;

uses crt;

var

 fam, kom : array of string;

 rost : array of double;

 N,i:integer;

BEGIN

 Clrscr;

 writeln('Введите количество учеников');

 readln(N);

 setlength(fam, n);

 setlength(rost, n);

 writeln('Введите фамилию и рост ученика');

 for i:=1 to N do begin

   write('fam[',i,']= ');

   read(fam[i-1]);

   write('rost[',i,']= ');

   readln(rost[i-1]);

 end;

 for i:=1 to N do

   if rost[i-1]>=170 then begin

     setlength(kom, length(kom)+1);

     kom[length(kom)-1]:=fam[i-1];

   end;

 if length(kom)=0 then

   writeln('кандидатов нет')

 else

   writeln('Список претендентов в сборную школы');

 Writeln;

 for i:=1 to length(kom) do

   writeln(kom[i-1]);

 readln

end.

Answer 3

Программа basket;

Uses crt;

Var n, i, k: integer; fam: array[1..100] of string; rost: array[1..100] of integer; kom: array[1..100] of string;

Begin clrscr;

writeln('Введите количество учеников'); readln(n);

writeln('Введите фамилию и рост ученика'); for i:=1 to n do begin write('fam[', i, ']= '); readln(fam[i]); write('rost[', i, ']= '); readln(rost[i]); end;

k:= 0; for i:= 1 to n do begin if rost[i] >= 170 then begin k:= k+1; kom[k]:= fam[i]; end; end;

if k=0 then begin writeln('кандидатов нет'); end else begin writeln('Список претендентов в сборную школы'); writeln; for i:= 1 to k do begin writeln(kom[i]); end; end;

readln; End.