Question

вписать фамилию и оценку, зависимо от того сколько ты вводил в string и посчитать средний балл всех учеников из всех учеников, pascal ПОМОГИТЕ!!!!!!!

Answer 1

Var 
surname:string;
score,sum:double;
n:integer;
begin
writeln('Введите количество учащихся');
read(n);
for var i:=1 to n do begin
write('Введите фамилию ' + i +' ученика: ');
readln(surname);
readln;
write('Введите балл: ');
read(score);
sum:= sum + score;
end;
write('Средний балл всех учеников = ' + sum/n);
end.

Answer 2

Конечно, я помогу вам решить эту задачу на языке программирования Pascal. Для решения этой задачи, нам нужно вводить фамилию и оценку учеников в цикле, а затем посчитать средний балл. Вот пример программы на Pascal:

pascalCopy code
program CalculateAverageGrade;

const
  MaxStudents = 100; // Максимальное количество учеников

type
  Student = record
    LastName: string;
    Grade: integer;
  end;

var
  Students: array[1..MaxStudents] of Student;
  TotalStudents, i, TotalGrade: integer;
  AverageGrade: real;

begin
  // Вводим количество учеников
  write('Введите количество учеников: ');
  readln(TotalStudents);

  // Вводим фамилию и оценку для каждого ученика
  for i := 1 to TotalStudents do
  begin
    write('Введите фамилию ученика ', i, ': ');
    readln(Students[i].LastName);

    write('Введите оценку для ученика ', i, ': ');
    readln(Students[i].Grade);
  end;

  // Подсчитываем общую сумму оценок всех учеников
  TotalGrade := 0;
  for i := 1 to TotalStudents do
    TotalGrade := TotalGrade + Students[i].Grade;

  // Вычисляем средний балл
  AverageGrade := TotalGrade / TotalStudents;

  // Выводим результат
  writeln('Средний балл всех учеников: ', AverageGrade:0:2);
end.

В этой программе мы используем массив Students, чтобы хранить информацию о каждом ученике (фамилию и оценку). Затем мы вводим количество учеников (TotalStudents) и в цикле заполняем массив данными об учениках.

Далее мы проходим по массиву, чтобы подсчитать общую сумму оценок всех учеников и вычислить средний балл, который выводим на экран.

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