Створення та реалізація програми

Задача. Дано таблицю оцінок учнів з математики. Дані табли­ці занесіть ло масиву записів. Виконайте лії нап даними таблииі.

1. Введемо тип Pupil, який відповідає одному рядку таблиці. Опишемо масив Раде, елементами якого є записи типу Pupil. Введемо запис Р типу Pupil, який знадобиться для проміжного збереження значень.

Type Pupil = Record

Nomer: Byte;

Name: String[20];

Ball: Array [1..6] of Byte;

End;

Var Page: Array [1..5] of Pupil;

i, N, K : Byte; P: Pupil;

2. Введення даних. Дані чергового рядка таблиці заносяться до до­поміжного запису Р. Сформований запис Р присвоюється і-му елементу масиву Раgе.

For і:=1 To 5 Do Begin

writeLn ('наступний рядок:1);

P.Nomer:= і ;

ReadLn (P.Name);

For j:=l To 6 Do ReadLn (P.Ball [j] );

Page [i]:= P;

End;

3. Припустимо, що при складанні таблиці було зроблено помилку, і потрібно виправити в третьому рядку 3-ю і 4-у оцінки на 12:

Р:= Раде [3] ;

P.Ball[3]:=12; P.Ball[4]:=12;

Раде[3] := Р;

4. Надрукувати вміст таблиці, тобто значення елементів масиву Раде:

For і:=1 То 5 Do Begin Р:=Раде [і];

Write (P.Name); write (P.Nomer);

For j:=l To б Do write (P.Ball [j]: 3);