1) ? 2) ? 3) ? 4) ? 5) ? 6) ?

Question

Информатика: 1) ? 2) ? 3) ? 4) ? 5) ? 6) ?

Радик174 · Accepted Answer

Не сказано, как хранятся данные. Допустим f[1..15] - фамилия, r[1..15] - рост

readln(newr);
for i:=1 to 15 do
if r[i]<newr then writeln(f[i]);

Ручной ввод:
var
i,newr:integer;
f:array[1..15]of string;
r:array[1..15]of integer;
begin
writeln('Введите фамилии и рост (в см) по убыванию');
for i:=1 to 15 do
begin
write('Фамилия: ');
readln(f[i]);
write('Рост (в см): ');
readln(r[i]);
end;
writeln('Введите рост (в см) нового уч-ка, не совпадающий ни с кем');
readln(newr);
for i:=1 to 15 do if r[i]<newr then writeln(f[i]);
end.

MOGZ ответил

1) ?

2) ?

3) ?

4) ?

5) ?

6) ?