Последовательность состоит из натуральных чисел и завершается числом 0. всего вводится не более 10000 чисел (не считая завершающего числа 0). определите, сколько элементов этой последовательности равны ее наибольшему элементу. числа, следующие за числом 0, считывать не нужно.

// pascalabc.net 3.1, сборка 1198 от 11.03.2016 begin   var n: =readinteger; // очередной элемент   var k: =0; // искомое количество   var max: =n;   while n< > 0 do begin       if n=max then inc(k)       else           if n> max then begin max: =n; k: =1 end;       n: =readinteger;       end;   writeln('число ',max,' встретилось ',k,' раз(а)') end. тестовое решение: 4 6 2 6 1 6 9 3 9 5 2 0 число 9 встретилось 2 раз(а)

Вставляем usb/dvdr/любой другой носитель информации в компьютер. выключаем/перезагружаем компьютер. во время включения нажимаем кнопку, отвечающую за запуск boot menu (f12/f8 в зависимости от модели компьютера, версии bios | в основном клавиша пишется снизу экрана при загрузке и появлении логотипа) выбираем наш носитель информации. вас могут попросить нажать какую-то клавишу, чтобы начать загрузку с вашего носителя. нажимаем. в появившемся окне нажимаем "далее" (в случае с windows), производим очистку/удаление/создание дисков. если вам необходимо переустановить windows, то (если у вас разбит диск) проводим форматирование того диска, на котором была установлена windows и нажимаем "далее". вводим лицензионный ключ windows. соглашаемся с условиями пользовательского соглашения. ждём окончания установки. вводим имя вашего компьютера, задаём цвет интерфейса (в случае с windows 8, 8.1, 10), вводим пароль от точки wi-fi (windows 10: если такая присутствует, если у вас проводной - этот шаг пропускается)