• На вход программе подаются сведения, из каких школ ученики не сдали книги в библиотеку. Всего в данном городе не более 100 школ.Определить, какая школа имеет наибольшое коичество должников. Количество должников может быть очень велико. На входном потоке сначала указывается количество должников, а затем номера их школ
    Паскаль ABC

Ответы 1

  • {Тибетские монахи подсказали мне смысл данного задания, но они могли ошибаться, "астрал затуманен"}//Pascal ABC.NET v3.1 сборка 1172Var  maxn,max,a,n:int64; k,i:byte;begin write('Введите количество школ:'); readln(k); max:=-1; for i:=1 to k do begin;  read(n);readln(a);  if a>max then   begin    max:=a;    maxn:=n;   end; end; write('Res=',maxn,' школа с ',max,' должниками');end.Пример ввода:3123455421343358568568Пример вывода:Res=335 школа с 8568568 должниками
    • Автор:

      tanner83
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years