Таблицы "Успеваемости" типа «объект—объект»
Ученик Русский Алгебра Химия Физика История Музыка
Аликин Петр 4 5 5 4 4 5
Ботов Иван 3 3 3 3 3 4
Волков Илья 5 5 5 5 5 5
Галкина Нина 4 4 5 2 4 4
Строки относятся к ученикам — это первый вид объектов; столбцы — к школьным предметам — второй вид объектов. В каждой клетке на пересечении строки и столбца — оценка, полученная данным учеником по данному предмету.
Проверку можно устроить, например, так. Пусть сначала i = 0, и в цикле увеличиваем i, пока не уйдем за границы массива или не встретим элемент, равный 7. После выхода из цикла проверяем, по какой причине был выход из цикла, и в зависимости от этого выводим либо номер элемента, либо сообщение об отсутствии семерок. При этом будет выведен только номер первой семерки, если их в массиве несколько.
Вывод массива можете дописать при необходимости самостоятельно, видимо, считается, что вы это умеете делать :)
Код (Pascal):
const
n = 20;
var
a: array[1..n] of integer;
i: integer;
begin
randomize;
for i := 1 to n do
a[i] := random(50) + 1;
i := 0;
repeat
i := i + 1;
until (i > n) or (a[i] = 7);
if i > n then
write('нет')
else
write(i)
end.
