Question

ПОМОГИТЕ !!!! Известны оценки по информатике каждого ученика класса (30чел). Составить программу для определения количества оценок высокого уровня (10,11,12) для Lazarus

Answer 1

Ответ:

program znanija

var arr: array [1..30] of integer;

var i: integer;

begin

for i:=0 to 30 do  

begin

 readln (arr [i]);

end;

 

for i:=0 to 30 do

begin

 if arr[i] > 10 then

 begin

  writeln (arr [i]);

 end;

end;

end.

Или линк: https://pastebin.com/Jm5R4Ehp

Answer 2

Конечно! Вот пример программы на языке Pascal, используя Lazarus, которая позволит вам определить количество оценок высокого уровня (10, 11, 12) для каждого ученика класса:

pascalCopy code
program CountHighGrades;

uses
  SysUtils;

const
  TotalStudents = 30;

type
  TGrade = 1..12;
  TGradeCounts = array [TGrade] of Integer;

var
  Grades: array [1..TotalStudents] of TGrade;
  GradeCounts: TGradeCounts;
  i: Integer;

begin
  // Инициализация счетчиков оценок
  for i := 1 to High(GradeCounts) do
    GradeCounts[i] := 0;

  // Ввод оценок каждого ученика
  for i := 1 to TotalStudents do
  begin
    WriteLn('Введите оценку для ученика ', i, ': ');
    ReadLn(Grades[i]);

    // Проверка оценки на высокий уровень
    if (Grades[i] >= 10) and (Grades[i] <= 12) then
      Inc(GradeCounts[Grades[i]]);
  end;

  // Вывод результатов
  WriteLn('Количество оценок высокого уровня для каждого ученика:');
  for i := 1 to TotalStudents do
    WriteLn('Ученик ', i, ': ', GradeCounts[Grades[i]]);

  ReadLn;
end.

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

Обратите внимание, что это простой пример и не содержит проверок на некорректный ввод данных. Предполагается, что пользователь будет вводить только допустимые оценки от 1 до 12.