<span>Программа
begin
var n := ReadlnInteger;
var Data := ArrGen(n, x -> ReadlnString.ToWords);
var MaxScore := Data.Max(x -> x[2].ToInteger);
Data.Where(x -> x[2].ToInteger = MaxScore).Select(x ->
x.JoinIntoString).Print(NewLine)</span>
end.
Ввод:
5
Георгий Сазонов 65
Матвей Панфилов 39
Василий Колобов 85
Иван Кириллов 72
Юрий Гришин 85
Вывод:
Василий Колобов 85
Юрий Гришин 85
1 зайти в ворд
2выделить его нажать на правую кнопку мыши и внизу будет переменовать
3вставить ее в компьютер на это было раньше а сейчас флеш карты
4выделить и перетащить куда надо
5конечно может
6выделить и нажать на прав кноп мыши и появ упорядочить как
7никак
Program n1;
var a: integer;
begin
write('введите номер месяца: ');
readln(a);
if( a>=1) and (a<3) then writeln('зима');
if(a>=3) and (a<6) then writeln('весна');
if (a>=6) and (a<9) then writeln('лето');
if(a>=9) and (a<13) then writeln('осень');
end.
526 в восьмеричной
156 в шестнадцатеричной
1024 байт *1024 кбайт = 1048576 байт