Pascal. составить программу,которая содержит информацию об учениках одного класса,отображая следующую информацию: фамилия,имя,оценка по . программа должна обеспечивать ввод данных, поиск оценки по фамилии и имена ученика, поиск учеников,умеющих данную оценку, поиск хотя бы одного ученика с наилучшей оценкой.

Pascalabc.net 3.2, сборка 1399 от 08.03.2017 внимание! если программа не работает, обновите версию! type   uch=record   fam,nam: string;   ball: integer   end; begin   var u: =new uch[40];   // ввод данных (до 40), окончание- пустой ввод   var i: =0;   repeat       var a: =readlnstring('ученик '+(i+1).tostring+': ').towords;       if a.count=0 then break;       u[i].fam: =a[0]; u[i].nam: =a[1]; u[i].ball: =integer.parse(a[2]);       i+=1   until i=40;   setlength(u,i); // массив отрегулирован под реальное кол-во   // поиск   writeln('1 - поиск по фамилии и имени; ');   writeln('2 - поиск по оценке; ');   writeln('3 - поиск учеников с лучшей оценкой; ');   writeln('иной символ - завершение');   repeat       var c: =readlnchar('ваш выбор: ');       case c of       '1': begin           var s: =readlnstring('фамилия и имя: ').towords;           var found: =false;           for var j: =0 to u.length-1 do               if (u[j].fam=s[0]) and (u[j].nam=s[1]) then begin                   writeln('отметка ',u[j].ball);                   found: =true;                   break                   end;               if not found then writeln('нет такого ученика')           end;       '2': begin           var k: =readlninteger('оценка: ');           var found: =false;           for var j: =0 to u.length-1 do               if u[j].ball=k then begin                   writeln(u[j].fam,' ',u[j].nam);                   found: =true;                   end;               if not found then writeln('нет такого ученика')           end;       '3': begin           var m: =u.select(x-> x.ball).max;           for var j: =0 to u.length-1 do               if u[j].ball=m then writeln(u[j].fam,' ',u[j].nam);           end;       else break       end;   until false;   writeln(', приходите еще! ')   end. пример ученик 1: иванов петр 4 ученик 2: петров иван 5 ученик 3: висечкин николай 3 ученик 4: зотова марина 4 ученик 5: любимов павел 5 ученик 6: козлова елена 4 ученик 7: 1 - поиск по фамилии и имени; 2 - поиск по оценке; 3 - поиск учеников с лучшей оценкой; иной символ - завершение ваш выбор: 3 петров иван любимов павел ваш выбор: * , приходите еще!

Родовым будет такое понятие, объём которого шире и полностью включает в себя объём другого понятия.