20 б измените текст программы примера так, чтобы решалась следующая : есть информация по студентам (фамилия, курс (1-5), 5 оценок за последнюю сессию). вывести через запятую фамилии первокурсников, которые имеют средний , больший или равный 4. program pr2; type student = record {объявление нового типа данных student} lastname: string ; {фамилия студента} bal: array [1..5] of integer; {массив для 5-ти оценок} average: real {средний студента} end; var pupil: array [1..100] of student; {массив pupil (максимум из 100 элементов) типа student} n,i,j,s : integer; {переменные целого типа} begin write ('введите количество студентов: '); readln(n); for i: =1 to n do begin {запрос данных по n студентам} with pupil[i] do begin write ('введите фамилию студента №', i ,': '); {запрос фамилии студента под номером i} readln (lastname); s: =0; {целочисленная переменная для определения суммы студента} for j: = 1 to 5 do begin {цикл для обработки 5-ти оценок каждого студента} write ('введите оценку за экзамен №: ', j, ': ' ); readln (bal [j] ); s : = s+ bal[j]; {суммирование 5-ти оценок студента} end; average: = s/5; {определение среднего значения и запись в переменную average} end; end; writeln; writeln ( 'студенты, имеющие средний больший или равный 4'); for i: =1 to n do begin if pupil[i].average > =4 then {если средний студента > =4} writeln (pupil[i].lastname, ' (средний ', pupil[i].average: 4: 1, ')'); {то вывод на экран фамилии студента и его среднего } end; end
2. Меняется всего одна строка в программе:
program pr2;
type
student = record {объявление нового типа данных student}
LastName: string; {фамилия студента}
bal: array [1..5] of integer; {массив для 5-ти оценок}
average: real {средний студента}
end;
var
pupil: array [1..100] of student; {массив pupil (максимум из 100 элементов) типа student}
n, i, j, s: integer;{переменные целого типа}
begin
write('Введите количество студентов: ');
readln(n);
for i := 1 to n do
begin{запрос данных по n студентам}
with pupil[i] do
begin
Write('Введите фамилию студента №', i, ': '); {запрос фамилии студента под номером i}
Readln(LastName);
s := 0; {целочисленная переменная для определения суммы студента}
for j := 1 to 5 do
begin{цикл для обработки 5-ти оценок каждого студента}
write('Введите оценку за экзамен №:', j, ': ' );
readln(bal[j] );
s := s + bal[j]; {суммирование 5-ти оценок студента}
end;
average := s / 5; {определение среднего значения и запись в переменную average}
end;
end;
writeln;
writeln( 'Студенты, имеющие средний больший или равный 4');
for i := 1 to n do
begin
if pupil[i].average >= 4 then {если средний студента >=4}
write(pupil[i].LastName,', ');
end;
end.