Question

СРОЧНО ПАСКАЛЬВ группе 13 учеников выполняли практикум по ИКТ.массив оценок ozenka формируйте случайнвми числами из инетрвала от 0 до 5.выведите на экран номер ученика оценка,например так Надо:найти и вывести количество учащихся,получивших оценку не ниже 4​Найти ср.балл по группе

Answer 1

var

i,c:integer;

sum:real;

ozenka:array[1..13] of integer;

begin

c:=0;

randomize;

writeln('Ученик | оценка ');

for i:=1 to 13 do begin

ozenka[i]:=random(0,5);

sum:=sum+ozenka[i];

writeln(i,' | ',ozenka[i]);

end;

for i:=1 to 13 do begin

if ozenka[i]>=4 then

c:=c+1;

end;

writeln('Количество учащихся,получивших оценку не ниже 4 = ', c);

sum:=sum / 13;

writeln('Средний балл= ', sum:0:1);

end.

Answer 2

Для выполнения данной задачи, можно использовать программирование на языке Паскаль. Ниже приведен код для генерации массива оценок, подсчета количества учеников с оценкой не ниже 4 и вычисления среднего балла по группе.

pascalCopy code
program PracticumResults;

const
  NumStudents = 13;

type
  TStudent = record
    number: Integer;
    grade: Integer;
  end;

var
  students: array[1..NumStudents] of TStudent;
  i, totalGrades, numAbove4, averageGrade: Integer;

begin
  Randomize; // Инициализация генератора случайных чисел

  // Заполнение массива оценок случайными числами от 0 до 5
  for i := 1 to NumStudents do
  begin
    students[i].number := i;
    students[i].grade := Random(6); // Генерация случайного числа от 0 до 5
  end;

  // Вывод на экран номера ученика и его оценки
  for i := 1 to NumStudents do
  begin
    writeln('Ученик ', students[i].number, ' - Оценка: ', students[i].grade);
  end;

  // Подсчет количества учеников с оценкой не ниже 4
  numAbove4 := 0;
  totalGrades := 0;
  for i := 1 to NumStudents do
  begin
    totalGrades := totalGrades + students[i].grade;
    if students[i].grade >= 4 then
      numAbove4 := numAbove4 + 1;
  end;

  // Вычисление среднего балла по группе
  averageGrade := totalGrades div NumStudents;

  writeln('Количество учеников с оценкой не ниже 4: ', numAbove4);
  writeln('Средний балл по группе: ', averageGrade);

end.

Обратите внимание, что генерация случайных чисел происходит с помощью Random(6), что означает случайное число от 0 до 5 (включая 5). Результаты оценок и вывод информации на экран будут каждый раз разными при запуске программы из-за использования генератора случайных чисел.