Поделитесь своими знаниями, ответьте на вопрос:
2. Найди соответствие. Порядок основных этапов разработки проекта: * Программирование/Тестирование и отладка программы Постановка задачи\Анализ результатов решения задачи \Разработка словесного алгоритма1 этап 2 этап 3 этап 4 этап 5 этап
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,', ');