Question

Написать на паскале программу
Ввести количество учеников( меньше или равно 1000) потом для каждого ученика, набранный им на экзамене балл (0-100) вывести кол во учеников которые набрали 85 и более, самый худший результат наименьшее кол во баллов СРОЧНО

Answer 1

program exam_results;

const

 MAX_STUDENTS = 1000;

var

 num_students, i, score, num_excellent, worst_score: integer;

begin

 writeln('Enter the number of students (up to 1000):');

 readln(num_students);

 

 num_excellent := 0;

 worst_score := 100;

 

 writeln('Enter the exam scores:');

 

 for i := 1 to num_students do

 begin

   readln(score);

   

   if score >= 85 then

     num_excellent := num_excellent + 1;

   

   if score < worst_score then

     worst_score := score;

 end;

 

 writeln('Number of students who scored 85 or higher: ', num_excellent);

 writeln('Worst score: ', worst_score);

end.