Задание 5 Параграф 22 ГДЗ Семакин 9 класс (Информатика)

program Liga;
var
b: array[1..16] of integer;
team: array[1..16] of string;
bb: string;
i: integer;
begin
writeln(‘Введине названия команд и полученные ими очки’);
for i := 1 to 16 do
begin
write(i, ‘ Название: ‘); readln(team[i]);
write(‘Очки: ‘); readln(b[i]);
end;
write(‘Введи название команды’);
read(bb);
i := 1;
while bb < > team[i] do
inc(i);
writeln(‘Команда ‘, bb, ‘ набрала ‘, b[i], ‘ очков.’)
end.

Для решения задачи удобно использовать два одномерных массива: один для названий команд, второй — для количества набранных очков. Сначала вводим данные для всех команд, затем вводим название нужной команды и последовательно ищем его в массиве названий. Когда команда найдена, выводим соответствующее количество очков.

program Liga;
var
  b: array[1..16] of integer;
  team: array[1..16] of string;
  bb: string;
  i: integer;
begin
  writeln(‘Введите названия команд и полученные ими очки’);
  for i := 1 to 16 do
  begin
    write(i, ‘ Название: ‘);
    readln(team[i]);
    write(‘Очки: ‘);
    readln(b[i]);
  end;
  write(‘Введите название команды: ‘);
  readln(bb);
  i := 1;
  while bb <> team[i] do
    inc(i);
  writeln(‘Команда ‘, bb, ‘ набрала ‘, b[i], ‘ очков.’);
end.

Программа перебирает названия команд до тех пор, пока не найдёт совпадение с введённым названием. После этого по тому же номеру элемента массива выводится число очков.

Ответ: программа на Паскале приведена выше.