Посчитать средний балл и вывести ученика с такой-же оценкой как и средний балл - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

ребят как посчитать средний бал и вывести ученика с такой-же оценкой как и средний бал?
Вот попытался написать но эт явно не то. Cуть в том что я должен ввести имена учеников и их оценку потом должен посчитаться средний бал и вывести ученика с такой-же оценкой как и средний бал.

Решение задачи: «Посчитать средний балл и вывести ученика с такой-же оценкой как и средний балл»

textual
Листинг программы
uses Crt;
type RT16=record
            s:string;
            m:integer;
          end;
var  a:array[1..10] of RT16;
     i:integer;
     sb:Real;
begin
  ClrScr;
   sb:=0;
    for i:=1 to 10 do
     begin
       Write('Student',i:2,' : ');
       Readln(a[i].s);            
       Write('Ball = ');
       Readln(a[i].m);
       sb:=sb+a[i].m;
     end;
   Writeln;
    sb:=sb/10;
     Writeln('Sredniy ball = ',sb:0:1);
      Writeln;
   for i:=1 to 10 do
    if a[i].m=sb then
     Writeln(a[i].s);
  ReadKey;
end.

Объяснение кода листинга программы

  1. В начале кода используется библиотека Crt, которая содержит функции для работы с экраном и строками.
  2. Создается тип данных RT16, который представляет собой структуру с двумя полями: строка (s) и целое число (m).
  3. Создается переменная a типа array[1..10] of RT16, которая представляет собой массив из 10 элементов типа RT16.
  4. Создается переменная i, которая представляет собой целочисленный индекс элемента массива.
  5. Создается переменная sb, которая представляет собой переменную для хранения среднего значения.
  6. Запускается цикл for, который проходит по каждому элементу массива a от 1 до 10.
  7. Внутри цикла выводится имя студента и его оценка.
  8. Значение оценки добавляется к переменной sb.
  9. После завершения цикла выводится среднее значение оценки.
  10. Если оценка равна среднему значению, то выводится имя студента.
  11. Конец программы.

Оцени полезность:

7   голосов , оценка 4.429 из 5
Похожие ответы