Задание 1 Вариант 3 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

ВАРИАНТ 3

1. Напишите программу. В соревнованиях по прыжкам в высоту принимали участие 10 спортсменов. Считая заданным список фамилий спортсменов и их результатов в порядке стартовых номеров, получите и выведите итоговую таблицу, в которой содержатся фамилии и результаты спортсменов в порядке занятых ими мест. Запишите текст программы.

При составлении программы используется комбинированный тип данных – запись (record).

program s5_v3_1;

const

n = 10;

type

uch = record

fam: string;//Фамилия участника

rez: real;//результат

end;

var

a: array[1..n] of uch;

i, j: integer;

c: uch;

begin

//заполнение данных

for i := 1 to n do

begin

write(taskfam>task);

readln(a[i].fam);

write(task rez=task);

readln(a[i].rez)

end;

//сортировка "пузырьком" по Убыванию поля "результат"

for i := 1 to n - 1 do

for j := 1 to n - i do

if a[j].rez

begin//перестановка всей записи

c := a[j];

a[j] := a[j + 1];

a[j + 1] := c

end;

for i := 1 to n do

writeln(i:3, a[i].fam:10, a[i].rez:10);

end.