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. Закрепление полученных знанийответьте на вопросы:- В чем заключается дискретность внутренней памяти?- Какие два смысла имеет слово «бит»?- Как они связаны?- В чем заключается свойство адресуемости внутренней памяти?- В чем разница между магнитным, оптическим и магнитооптическим диском?- Что такое файл?
//Версия 3.3. сборка 1583 (25.11.2017)
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.
Немного короче, но сложнее в восприятии будет, я думаю
Пример: