Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоComboВсе проекты

решите задачу в Delphi

Анастасия Сергеевна Профи (937), закрыт 12 лет назад
Известны данные о 30-ти учениках: фамиля, класс, оценка по информатике. Определить фамилии учеников 9-х классов, имеющих оценку "5".
Лучший ответ
Gennady Гений (56945) 12 лет назад
Доброго времени суток.

Возможное решение может быть таким.

program Student;
type
RStudent = record
FIO : String[40]; {40 символов должно хватить на фамилию}
Class : Integer; {класс без всяких там -а и -б}
Ball : Integer;
end;

var
A : array[1..30] of RStudent;
j : Integer;
begin
{заполняем массив}
for j:=1 to 30 do begin
Write('Введите через пробел ФИО, класс и оценку ', i, ' ученика');
ReadLn(A[j].FIO, A[j].Class, A[j].Ball);
end;

{обработка}
for j:=1 to 30 do
if (A[j].Class = 9) and (A[j].Ball = 5) then WriteLn(A[j].FIO);

ReadLn; {это чтобы увидеть ответ}
end.

Удачи!
Остальные ответы
Похожие вопросы
Также спрашивают