for k:=1 to 2 do. repeat. Info[i].name := Info[i].name + c;. Info[i].sum := 0;. for k:=1 to 3 do begin. read(mark);. Info[i].sum := Info[i].sum + mark;. readln;. for i:=1 to N do begin. Info[i].name := '';. for k:=1 to 2 do. repeat. Info[i].name := Info[i

for k:=1 to 2 do

repeat

read ( c );

Info[i].name := Info[i].name + c;

until c = ' '; { пока не прочитали пробел }

8) важно! обратите внимание, что для организации внутреннего цикла используется другая переменная, k (а не i, потому что i – переменная главного цикла, она обозначает номер текущего ученика)

9) теперь во входном потоке остались три числа, которые мы можем последовательно считывать в целую переменную mark, а затем – добавлять к полю Info[i].sum:

Info[i].sum := 0;

for k:=1 to 3 do begin

read(mark);

Info[i].sum := Info[i].sum + mark;

end;

readln;

10) последняя команда readln пропускает все оставшиеся символы до новой строки (из этой мы прочитали все, что нужно)

11) вот полный цикл ввода данных, после его окончания все исходные данные будут записаны в первые N записей массива Info:

for i:=1 to N do begin

{ ввод имени и фамилии }

Info[i].name := '';

for k:=1 to 2 do

repeat

read(c);

Info[i].name := Info[i].name + c;

until c = ' ';

{ ввод и суммирование оценок }

Info[i].sum := 0;

for k:=1 to 3 do begin

read(mark);

Info[i].sum := Info[i].sum + mark;

end;

readln;

end;

Поиск трех худших данных:

12) теперь нужно придумать, как за один проход по массиву найти три худших результата;

13) как бы мы решили эту задачу, если бы нам нужно было просмотреть столбик чисел и найти три минимальных? можно сделать, например, так:

o на бумажке вести записи в три столбика, в первом записывать минимальное число, в втором – следующее по величине, в третьем – «третье минимальное»

o сначала пишем первое число в первый столбик, оно – минимальное, потому что других мы не еще видели; пусть это число 14:

минимум	второе	третье

o пусть следующее число – 12; оно меньше минимального, поэтому его нужно записывать в первый столбец, а «старое» минимальное число «переедет» во второй столбец

минимум	второе	третье
14

o пусть дальше идет число 10 – теперь оно станет минимальным, его нужно записывать в первый столбец; при этом 12 «переедет» из первого столбца во второй, а 14 – из второго в третий

минимум	второе	третье
14
12	14

o пусть следующее число – 11; оно больше минимального, но меньше «второго», поэтому его нужно поставить во второй столбец; число 12 из второго столбца перемещается в третий, а число 14 из третьего столбца удаляется из кандидатов в «три минимальных»

минимум	второе	третье
14
12	14
	12	14

o просмотрев таким образом весь столбик чисел, за один проход (!) можно найти три минимальных элемента

o остается только переложить этот алгоритм на язык программирования

14) выделим в памяти три целых переменных: min1 (минимальный), min2 («второй минимальный»), min3 («третий минимальный»), в виде начальных значений запишем в каждую из них число, заведомо превышающее максимальную возможную сумму трех оценок, например, 20 (>5+5+5)

15) полный цикл поиска выглядит так:

⇐ Предыдущая 4 5 6 7 8910 11 12 13 Следующая ⇒