Question

С клавиатуры вводятся оценки за экзамены одного студента. Количество экзаменов = N (N не больше 10). Вывести количество пятерок и количество двоек. Pascal.

Answer 1

Представлю 3 программы два с массивом и один без массива

1)var a:array [1..10] of integer;

i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

 for i:=1 to n do  begin

   writeln('введите оценку за экзамен');

   readln(a[i]);

 end;

  for i:=1 to n do  begin

    if a[i]=5 then k5:=k5+1;

    if a[i]=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end.

2)var a:array [1..10] of integer;

i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

 for i:=1 to n do  begin

   writeln('введите оценку за экзамен');

   readln(a[i]);

    if a[i]=5 then k5:=k5+1;

    if a[i]=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end.

3)var a,i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

if n<=10 then begin

 for i:=1 to n do  begin

     writeln('введите оценку за экзамен');

   readln(a);

    if a=5 then k5:=k5+1;

    if a=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end;

 end.

Answer 2

Вот пример программы на языке Pascal, которая позволяет вводить оценки за экзамены для одного студента и выводит количество пятерок и количество двоек:

pascalCopy code
program CountGrades;
var
  N, grade, fives, twos, i: Integer;
begin
  // Инициализируем счетчики
  fives := 0;
  twos := 0;

  // Запрашиваем количество экзаменов (N)
  Write('Введите количество экзаменов (N): ');
  Readln(N);

  // Проверяем, что N не больше 10
  if (N > 10) then
  begin
    Writeln('Ошибка: Количество экзаменов не должно превышать 10.');
    Exit;
  end;

  // Вводим оценки за экзамены и подсчитываем количество пятерок и двоек
  for i := 1 to N do
  begin
    Write('Введите оценку за экзамен ', i, ': ');
    Readln(grade);

    // Проверяем оценку и увеличиваем соответствующий счетчик
    case grade of
      5: Inc(fives);
      2: Inc(twos);
    end;
  end;

  // Выводим результаты
  Writeln('Количество пятерок: ', fives);
  Writeln('Количество двоек: ', twos);

  Readln;
end.

Эта программа сначала запрашивает количество экзаменов (N), затем в цикле запрашивает оценки за каждый экзамен и подсчитывает количество пятерок и двоек. Результаты выводятся на экран. Пожалуйста, учтите, что программа проверяет, что количество экзаменов не превышает 10.