Question

В массиве хранится информация о годовых отметках по математике 25 учащихся класса (случайные числа от 2 до 10). Определите, есть ли в классе учащиеся, имеющие отметку 10, и если да, то выведите порядковые номера этих учащихся
(pascal)

Answer 1

Ответ:

program FindTopStudents;

var

 Marks: array[1..25] of integer;

 i: integer;

 hasTopStudents: boolean;

begin

 // Заполняем массив случайными отметками от 2 до 10

 Randomize;

 for i := 1 to 25 do

   Marks[i] := Random(9) + 2;

 // Ищем учащихся с отметкой 10 и выводим их порядковые номера

 hasTopStudents := False;

 writeln('Учащиеся с отметкой 10:');

 for i := 1 to 25 do

 begin

   if Marks[i] = 10 then

   begin

     writeln('Ученик номер ', i);

     hasTopStudents := True;

   end;

 end;

 if not hasTopStudents then

   writeln('В классе нет учеников с отметкой 10.');

end.

Объяснение:

Этот код создает массив Marks, заполняет его случайными отметками от 2 до 10, а затем проходит по массиву, чтобы найти и вывести порядковые номера учеников с отметкой 10. Если таких учеников нет, программа сообщит об этом.