Составить программу на паскале. в массиве хранится информация о стоимости каждой из m книг. определить количество самых дешевых книг(с одинаковой минимальной ценой)
Var mas:array of integer; min,kol ,j, i,n:integer; begin Randomize; min:=0;kol:=0; write('n:' ); readln(n); setlength(mas,length(mas)+n);///динамический массив вы можете заменить на статический For i:= 0 to high(mas) do mas[i]:=Random(50); min:=mas[0]; for j:=0 to high(mas) do//ищем минимальную ценну if min>mas[j] then min:=mas[j] ; For i:= 0 to high(mas) do if min=mas[i] then//ищем количество книг с минимальной ценой inc(kol); write('kolvo min ',kol); readln; end.
Частота процессора - Количество операций в секунду Разрядность шины - Системная шина процессора предназначена для обмена информацией микропроцессора с любыми внутренними устройствами микропроцессорной системы Объем кэш-памяти - Кэш память процессора выполняет примерно ту же функцию, что и оперативная память. Только кэш - это память встроенная в процессор. Кэш-память используется процессором для хранения информации. В ней буферизируются самые часто используемые данные, за счет чего, время очередного обращения к ним значительно сокращается. Количество ядер в домашних системах от одного до четырех
Интернет по сути своей не представляет опасности для подрастающего поколения. Вредоносное влияние оказывают многочисленные сайты и всплывающие окна рекламного характера. Помимо образовательной роли виртуальная реальность таит и множество негативных моментов, в особенности для детей. Это может быть:
незаконный контент: «взрослая» реклама табака, алкоголя, секса, азартные игры, порнография;платные сервисы и услуги, которые оплачиваются отдельно;призывы к асоциальному поведению, насилию и жестокости;пропаганда сексуальной эксплуатации и суицидального поведения;общение на форумах и чатах с мошенниками, аферистами и преступниками под личиной доброжелателей;вынуждение предоставления личной информации ребенка или его семьи, которая может быть использована в преступных целях;Интернет-зависимость.
begin
Randomize; min:=0;kol:=0;
write('n:' );
readln(n);
setlength(mas,length(mas)+n);///динамический массив вы можете заменить на статический
For i:= 0 to high(mas) do
mas[i]:=Random(50);
min:=mas[0];
for j:=0 to high(mas) do//ищем минимальную ценну
if min>mas[j] then
min:=mas[j] ;
For i:= 0 to high(mas) do
if min=mas[i] then//ищем количество книг с минимальной ценой
inc(kol);
write('kolvo min ',kol);
readln;
end.