Question

Известны результаты экзамена 15 студентов одной группы по информатике. Определить, сколько студентов сдали экзамен на 4 и сколько на 5. (PASCAL) СРОЧНО!!!!!!!!!!!!

Answer 1

var a,i,k,m:integer;

BEGIN

k:=0;

m:=0;

for i:=1 to 15 do begin

readln(a);

if (a=4) then k:=k+1;

if (a=5) then m:=m+1;

end;

writeln(k,' студентов сдали экзамен на "4".');

writeln(m,' студентов сдали экзамен на "5".');

end.

Answer 2

Для решения этой задачи вам нужно пройти по списку результатов экзамена и подсчитать, сколько студентов получили оценку 4 и сколько оценку 5. Вот пример кода на языке Pascal, который поможет вам выполнить это:

pascalCopy code
program РезультатыЭкзамена;

var
  результаты: array[1..15] of integer;
  четверки, пятерки: integer;
  i: integer;

begin
  четверки := 0;
  пятерки := 0;

  writeln('Введите оценки для 15 студентов:');
  for i := 1 to 15 do
  begin
    write('Студент ', i, ': ');
    readln(результаты[i]);
    
    if результаты[i] = 4 then
      четверки := четверки + 1
    else if результаты[i] = 5 then
      пятерки := пятерки + 1;
  end;

  writeln('Количество студентов, получивших оценку 4: ', четверки);
  writeln('Количество студентов, получивших оценку 5: ', пятерки);
end.

Просто введите оценки для каждого студента, и программа выведет количество студентов, получивших оценку 4 и 5.