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

Ответ:

program ExamResults;

var

numStudents, score, count85plus, minScore, i: integer;

begin

writeln('Введите количество учеников:');

readln(numStudents);

count85plus := 0;

minScore := 100;

for i := 1 to numStudents do

begin

writeln('Введите балл для ученика ', i, ':');

readln(score);

if score >= 85 then

count85plus := count85plus + 1;

if score < minScore then

minScore := score;

end;

writeln('Количество учеников с баллом 85 и более: ', count85plus);

writeln('Самый худший результат: ', minScore);

end.

Объяснение:

как то так