<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ArrRandom(ReadInteger('n='),-200,200); x.Println;
var min:=x.Min; Writeln('Минимальный элемент ',min);
Writeln('A = ',(x.Where(t->t<100).Sum)/Sin(min))
end.
<u>Пример</u>
n= 13
44 51 41 -154 -169 -100 169 113 183 198 -183 136 58
Минимальный элемент -183
A = 581.362198263188
В наш век компьютер стал другом каждого человека. В школах и в детских садах ребята занимаются в компьютерных классах. Сегодня компьютерная техника необходима для работы на производстве, в офисах и на транспорте. Но очень часто каждый из вас сидит дома за этой увлекательной вещицей и смотрит мультяшки, играет в игры, а иногда просто выходит в интернет. Хочу вас предостеречь, что общение с компьютером порой оказывает неблагоприятное воздействие на ваше здоровье.
При занятиях с компьютером важно помнить об опасностях, которые вас подстерегают:
• если вы близко сидите у компьютера, то идет сильная нагрузка на глаза от монитора и может ухудшиться зрение;
• если вы долго сидите у компьютера, то возникает нагрузка на позвоночник;
• повышенный уровень шума при работе компьютера и принтера создает нагрузку на мозг;
• электромагнитное излучение от монитора может также привести к заболеваниям;
• пыль, возникающая при работе с компьютером, приводит к снижению иммунитета;
• компьютер работает под высоким напряжением, а при неисправной проводке может возникнуть возгорание монитора и поражение пользователя электротоком;
• а если вы играете длительное время в игры, то страдает ваше эмоциональное состояние.
Учитывая эти опасности, следует знать правила работы с компьютером:
• Правильно установите компьютер: задняя часть монитора не должна быть направлена на людей и место их отдыха; диваны и кровати должны находиться на расстоянии не менее 2,5 - 3 метров от компьютера; на экране должен быть защитный фильтр.
• Компьютер необходимо подключить через заземленную розетку и пилот.
• Обязательно в помещении должен быть включен свет и должна гореть настольная лампа.
• При работе с компьютером надо соблюдать правильную осанку.
• Расстояние от глаз монитора должно быть не менее полметра.
• Не стоит общаться с компьютером людям с аллергией и сердечными заболеваниями.
• Дети могут работать с компьютером не более 1 часа в день, делая перерывы каждые 10 минут. Усаживаться за просмотр телепередач после компьютерных занятий в течение 2- 3 часов не рекомендуется, лучше отправьтесь на прогулку.
• Помощником при работе с компьютером станут физические упражнения.
• После работы с компьютером необходимо включать ионизаторы воздуха.
• Компьютер никогда не заменит прогулок на воздухе, занятий спортом и игр со сверстниками
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),0,30); a.Println;
for var i:=0 to a.Length-1 do
if a[i]<=i+1 then Print(a[i])
end.
<u>Пример</u>
n= 20
18 19 0 24 24 19 15 1 25 11 15 19 15 12 2 2 7 19 20 12
0 1 12 2 2 7 12
Ничего не сказано про повторяющиеся значения. Если не делать проверку на повторяющиеся значения, то вот программа (проверена на версии ПаскальАВС.Нет):
var
x: array [1..10] of integer;
y, z: array [1..15] of integer;
i, j, k: integer;
f: boolean;begin
//заполнение и распечатка массива Х
for i := 1 to 10 do
begin
x[i] := random(10) + 1;
write(x[i]:3);
end;
writeln;
//заполнение и распечатка массива У
for i := 1 to 15 do
begin
y[i] := random(10) + 1;
write(y[i]:3);
end;
writeln;
//заполнение массива Z
for i := 1 to 15 do
begin
f := true;
for j := 1 to 10 do
if x[j] = y[i] then
begin
f := false;
break;
end;
if f then
begin
k := k + 1;
z[k] := y[i];
end;
end;
//распечатка массива Z
for i:=1 to k do
write(z[i]:3);
end.
Ответ:
3364 бита
Объяснение:
В черно-белом изображении участвуют два цвета, поэтому точка кодируется одним битом. Общее количество точек 58×58 = 3364.
Столько же и бит.
Можно перевести в байты. 1 байт = 8 бит. 3364 / 8 = 420.5. Некруглое число, оставляем в битах.