Question

С клавиатуры вводятся оценки учащихся. Подсчитать количество сдавших экзамен (получили оценку не менее 3) и не сдавших предмет(получили 2). Программа Паскаль. Тема- цикл с пред условием . СРОЧНО:)

Answer 1

Program maxx;
var max,n,k,i:integer;
begin
writeln('введите кол-во чисел');
readln(k);
max:=0;
for i:=1 to k do
begin
readln(n);
if n>max then max:=n;
end;
writeln(max);
end.

Answer 2

Конечно, я могу помочь с написанием программы на Pascal для подсчета количества сдавших и не сдавших экзамен.

Пример решения задачи:

goCopy code
program CountGrades;
var
  grade: integer;
  passed, failed, total: integer;
begin
  passed := 0; // количество сдавших
  failed := 0; // количество не сдавших
  total := 0;  // общее количество студентов
  
  writeln('Введите оценки студентов:');
  
  repeat
    readln(grade);
    
    if grade >= 3 then
      passed := passed + 1
    else if grade = 2 then
      failed := failed + 1;
    
    total := total + 1;
  until grade = 0; // 0 - признак окончания ввода оценок
  
  writeln('Сдавших экзамен: ', passed);
  writeln('Не сдавших экзамен: ', failed);
  writeln('Всего студентов: ', total);
  
  readln;
end.

В этой программе используется цикл с предусловием repeat...until, который выполняется до тех пор, пока не будет введена оценка 0 (признак окончания ввода оценок). В цикле происходит проверка введенных оценок и увеличивается соответствующее количество сдавших или не сдавших студентов. В конце выводится общее количество студентов, количество сдавших и не сдавших экзамен.