Question

В массиве хранятся сведения об оценках 25 учеников по химии. Определить количество неуспевающих по химии учеников. Помогите,пожалуйста,паскаль-одномерный массив.

Answer 1

Const
   N = 25;
Var
   A:array[1..N] of byte;
   i,k:byte;
Begin
k:=0;
Write('Текущие оценки по Химии:');
For i:= 1 to N do
   Begin
   A[i]:=random(5)+1;
   Write(' ',A[i]);
   if A[i]<3 then k:=k+1;
   End;
WriteLn;
WriteLn('Количество отстающих учеников: ',k);
End.

Answer 2

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

pascalCopy code
program CountFailingStudents;

const
  NumStudents = 25;
  PassingGrade = 3; // Предполагаем, что 3 и выше - это проходной балл

var
  Grades: array[1..NumStudents] of Integer;
  FailingCount: Integer;
  i: Integer;

begin
  FailingCount := 0;

  // Здесь можно было бы заполнить массив оценками, но для примера давайте используем случайные оценки
  Randomize;
  for i := 1 to NumStudents do
  begin
    Grades[i] := Random(5) + 1; // Случайная оценка от 1 до 5
    WriteLn('Студент ', i, ' получил оценку: ', Grades[i]);
    
    if Grades[i] < PassingGrade then
      Inc(FailingCount);
  end;

  WriteLn('Количество неуспевающих студентов: ', FailingCount);
end.

Этот код создает массив оценок для 25 студентов, считает количество неуспевающих студентов (тех, кто получил оценку ниже 3), и выводит результат. Вы можете адаптировать его под свои данные и требования.