Question

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

Answer 1

program lab100301;
uses crt;
type
  tablica=record
  name:string[10];
  sred:real;
  rus,math,fiz:byte;
  end;
var
  a:tablica;
  mas:array[1..30] of tablica;
  s:real; n:integer;
  i:integer;
begin
  clrscr;
  writeln('введите количество учеников ');
  readln(n);
  for i:=1 to n do
    with mas[i] do
    begin
      write('фамилия ',i,'-го ученика : '); readln(name);
      write('русский язык: '); readln(rus);
      write('математика : '); readln(math);
      write('физика : '); readln(fiz);
      sred:=(rus+math+fiz)/3;
      s := s + sred;
      writeln('Средний бал ученика: ' , name,'  ',  sred:3:1);
    end;
 
  s := s / n;
  writeln('Обший средний бал: ',s);
  writeln('');
  writeln('ученики чей средний бал выше среднего ');
  writeln('');
  writeln(' ________________________ ');
  writeln('| фамилия  |средний балл |');
  writeln(' ------------------------ ');
  for i:=1 to n do
    with mas[i] do
      if mas[i].sred>s then
        begin
          write('|',name:9,'|');
          writeln(sred:14:2,'|');
        end;
  writeln(' --------------------------');
  readkey;
end.