Pascal ABC. Решите задачу: Пользователь вводит данные о результатах экзамена в 9-х...

Question

Pascal ABC. Решите задачу: Пользователь вводит данные о результатах экзамена в 9-х классах. В первой строке вводится количество сдавших экзамен (N). Число n не превышает 50. В каждой из следующий N строк вводятся данные по каждому из сдававших -фамилия -имя -отметки по четырем предметам (математике, русскому языку, информатике и обществознанию). Все элементы В каждой строке разделены одним пробелом. Для удобства входные данные можно считывать из файла. Пример входных данных 4 Иванов Сергей 5 5 4 5 Петров Семен 3 3 4 3 Никонов Сергей 4 3 3 2 Аветисов Артем 5 4 5 5 К ЗАДАНИЮ: Напишите программу, которая выводит на экран Средний бал по каждому предмету. Пример входных данных Средний балл ______________ Математика: 4.25 Русский язык: 3.75 Информатика: 4 Обществознание: 3.75

---

Answer 1

Program n1;

type x=record

name: string[50];

surname: string[50];

rus,mat,inf,obc: integer;

end;

var a: array[1..50] of x;

f: text;

s: string;

i,n,r,k: integer;

begin

assign(f,'input.txt');

reset(f);

readln(f,s);

val(s,n,i);

for i:=1 to n do begin

readln(f,s);

a[i].surname:=copy(s,1,pos(' ',s)-1);

delete(s,1,pos(' ',s));

a[i].name:=copy(s,1,pos(' ',s)-1);

delete(s,1,pos(' ',s));

val(copy(s,1,pos(' ',s)-1),r,k);

a[i].mat:=r;

delete(s,1,pos(' ',s));

val(copy(s,1,pos(' ',s)-1),r,k);

a[i].rus:=r;

delete(s,1,pos(' ',s));

val(copy(s,1,pos(' ',s)-1),r,k);

a[i].inf:=r;

delete(s,1,pos(' ',s));

val(s,r,k);

a[i].obc:=r;

end;

close(f);

writeln('Средний балл');

writeln('--------------------');

r:=0;

for i:=1 to n do r:=r+a[i].mat;

writeln('Математика: ',r/n);

r:=0;

for i:=1 to n do r:=r+a[i].rus;

writeln('Русский язык: ',r/n);

r:=0;

for i:=1 to n do r:=r+a[i].inf;

writeln('Информатика: ',r/n);

r:=0;

for i:=1 to n do r:=r+a[i].obc;

writeln('Обществознание: ',r/n);

r:=0;

end.

Comments

Данные вводятся из текстового файла imput

---

*input