Вывести список студентов, получивших оценку 5 из данного предмета.Программка паскаль
Вывести перечень студентов, получивших оценку 5 из заданного предмета.Программа паскаль
Задать свой вопросПрограммка:
type Student=record
FIO:string;
year:integer;
obj:string;
mark:integer;
end;
var
i:integer;
objec:string;
s: array [1..3] of Student;
BEGIN
// 1-ый студент
s[1].FIO:= 'Петров П.П.';
s[1].mark:= 3;
s[1].obj:= 'Математика';
s[1].year:= 1997;
// 2-ой студент
s[2].FIO:= 'Иванов И.И.';
s[2].mark:= 5;
s[2].obj:= 'Математика';
s[2].year:= 1999;
// 3-ий студент
s[3].FIO:= 'Сидоров С.С.';
s[3].mark:= 5;
s[3].obj:= 'Математика';
s[3].year:= 1998;
write('Введите предмет: ');
readln(objec);
writeln('Перечень студентов по данным характеристикам:');
for i:=1 to 3 do
if (s[i].obj = objec) and (s[i].mark = 5) then
writeln(s[i].FIO, ' - ' , s[i].year)
END.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Разные вопросы.
Математика.
Русский язык.
Русский язык.
Разные вопросы.
Қазақ тiлi.
Английский язык.
Математика.
История.