begin var a:=ArrRandom(ReadInteger('Введите размер массива: '),-20,20); a.Println; var s:=1; var max:=0; for var i:=0 to a.Length-2 do begin if a[i]<a[i+1] then s+=1 else if s>max then max:=s else s:=1; end; Println('Максимальная длина неубывающего участка-> ',max); s:=0; max:=0; var maxi:=0; for var i:=0 to a.Length-1 do begin for var j:=0 to a.Length-1 do if a[i]=a[j] then s+=1; if s>max then begin max:=s; maxi:=i; end; s:=0; end; If max=1 then Println('Числа повторяются одинаково') else Println('Наиболее повторяющееся число->',a[maxi]); end.
Немного короче, но сложнее в восприятии будет, я думаю
Гибкий диск (floppy disk) – его называют еще флоппи диском или дискетой – это круглая гибкая пластина с намагниченным слоем, вставленная в пластмассовый корпус.7Жесткий диск (HDD — Hard Disk Drive) относится к несменным дисковым магнитным накопителям.8Лазерные дисководы используют оптический принцип чтения информации.9Устройство лазерного дисковода и диска10Flash-память - это энергонезависимый тип памяти, позволяющий записывать и хранить данные в микросхемах.11Устройства, составляющие внутреннюю память расположены на «материнской» плате в системном блоке. Этот вид памяти не предназначен для хранения информации пользователя. Она используется компьютерной системой.12Оперативная память - это быстрое запоминающее устройство не очень большого объёма, непосредственно связанное с процессором и предназначенное для записи, считывания и хранения выполняемых программ и данных, обрабатываемых этими программами.13Кэш-память или сверхоперативная память — очень быстрое ЗУ небольшого объёма, которое используется при обмене данными между микропроцессором и оперативной памятью для компенсации разницы в скорости обработки информации процессором и несколько менее быстродействующей оперативной памятью. 14Постоянная память - BIOS (Basic Input-Output System).В нее данные занесены при изготовлении компьютера.154. Закрепление полученных знанийответьте на вопросы:- В чем заключается дискретность внутренней памяти?- Какие два смысла имеет слово «бит»?- Как они связаны?- В чем заключается свойство адресуемости внутренней памяти?- В чем разница между магнитным, оптическим и магнитооптическим диском?- Что такое файл?
10:= x; - ошибка (в операторе присваивания слева от знака := должна быть переменная
y:= 7,8; - ошибка, правильная запись y:=7.8;
b:= 25; - верно
x:= 2*(a+y); - верно
a:= sqrt(b); - ошибка, a - целая переменная, результат функции sqrt - вещественный