1.Как я понял, последовательность вводится с клавиатуры и признак окончания ввода - 0. Значит имеет смысл использовать цикл Repeat 2. Вводимые числа - целые. После этих уточнений можно написать код на PascalABC:
//Вариант с циклом repeat var a, min: integer;
begin min := 555555; repeat readln(a); if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then min := a; until a = 0; writeln(min); end.
//вариант с циклом while var a, min: integer;
begin min := 555555; readln(a); while (a>0) or (a<0) do begin if ((a mod 10 = 5) or (a mod 10 = -5)) and (a < min) then min := a; readln(a); end; writeln(min); end.
В запись 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,', ');
