Задание 1. Разберите и выполните на компьютере программу для решения следующей задачи. В массиве хранятся информации о годовых отметках по математике 25 учащихся класса (случайные числа от 2 до 10). Определите, есть ли в классе учащиеся, имеющие отметку 10, и если да, то выведите порядковые номера этих учащихся. Program pz; var a: array [1..25] of integer; k,i: integer; begin writeln ('Годовые отметки учащихся: '); for i:=1 to 25 do begin a[i] := random(9)+2; write (a[i], ' '); end; writeln; k := 0; for i:=1 to 25 do begin if a[i] = 10 then begin k := 1; writeln('Имеет отметку 10 учащийся с номером: ', i); end; end; if k = 0 then writeln('Нет учащихся с отметкой 10'); end.

Массив содержит 25 целых чисел. Выражение random(9)+2 даёт случайные отметки от 2 до 10 включительно: random(9) принимает значения от 0 до 8.

Программа сначала заполняет массив и выводит отметки, затем просматривает все элементы. Если найдено значение 10, переменная k становится равной 1 и выводится индекс учащегося. Если десяток нет, выводится соответствующее сообщение.

Это корректное решение: проверка выполняется для каждого учащегося, поэтому программа выводит все номера учащихся с отметкой 10.

Пример возможного вывода (случайные данные): отметки — 10 7 8 10 6 ...; учащиеся с отметкой 10 — № 1 и № 4.