С ПРОЕКТОМ мне осталось только практическая часть, а я не знаю как ее делать. в том смысле, что мне непонятно что делать. то ли плакат рисовать какой-то (как мне сказали), то ли защиты от кибератак, то ли еще что-то(тема:киберпреступность).
В запись student добавляете новое поле kurs, Type student = recordLastName: string ; bal: array [1..5] of integer; kurs: integer;average: real end; В цикле по студентам добавляете ввод курса with pupil[i] do begin Write ('Введите фамилию студента №', i ,': '); Readln (LastName); Write('Введите курс '); Readln(kurs); В конце программы изменяете вывод writeln ( 'Студенты первокурсники, имеющие средний больший или равный 4'); For i:=1 to n do beginif (pupil[i].average >=4) and (pupil[i].kurs = 1) then write (pupil[i].LastName,', ');
Type student = recordLastName: string ; bal: array [1..5] of integer;
kurs: integer;average: real end;
В цикле по студентам добавляете ввод курса
with pupil[i] do begin
Write ('Введите фамилию студента №', i ,': ');
Readln (LastName);
Write('Введите курс '); Readln(kurs);
В конце программы изменяете вывод
writeln ( 'Студенты первокурсники, имеющие средний больший или равный 4');
For i:=1 to n do beginif (pupil[i].average >=4) and (pupil[i].kurs = 1) then
write (pupil[i].LastName,', ');