Какое значение будет выведено на экран в результате выполнения программы? const n=6; var i, k, a: integer; f:array[1..n] of integer; begin for i:=1 to n do f[i]:=n-i+1; a:=f[f[2]-f[4]]; k:=0; for i:=1 to n do if f[i]>a then k:=k+1; label1.caption:=inttostr(k); end;

for i:= 1 to 20 do begin

a (i) : = (i + 4) mod 5;

end;

Тут массив забивается числами от 0 до 4

for i:= 1 to 20 do begin

if a[i] > m then

m := a[i];

if a (i) < n then

n := a[i];

end;

Здесь ищем Макс(м) и мин(н) этого массива, они конечно равны 4 и 0 соответственно.

Х=(m - n) mod 5=(4 - 0) mod 5=4

for i:= 1 to 20 do begin

if a[i] = x then

write(i, ' ');

end;

Тут через пробел выводиться номера элементов, чье значение совпадает с х. А это 1 6 11 16

Вот и ответ: 1 6 11 16

Объяснение:

Вычислительная техника широко используется в современных системах обработки информации, для быстрого и точного определения координат судов, самолётов, космических объектов и т.п. Особенной областью применения вычислительной техники являются информационные поисковые системы, обеспечивающие механизацию библиотечных и библиографических работ и ликвидации больших справочных картотек. Быстро развивающейся сферой использования вычислительной техники является также работа банков, сберегательных касс и других финансовых учреждений, где применение ЦВМ позволяет централизованно реализовывать все расчётные операции.

Современный научно-технический прогресс характеризуется прежде всего не только высокой производительностью и научной организацией труда, но и широкой механизацией и автоматизацией умственной деятельности человека. Алгоритмизация умственной деятельности человека потребовала интенсивной разработки новых разделов математики, особенно математического моделирования, логики, лингвистики и психологии, создания специальных математических методов анализа, физических, биологических и социальных процессов, математическое исследование которых было ранее невозможно.

На opt-hardware.ru Вы найдете много полезной и исчерпывающей информации о закупках, торгах и тендерах на средства вычислительной техники!

Средства связи

Средства связи – это технические и иные средства, с которых решаются задачи передачи, приема, обработки и хранения информации. Средства связи, в зависимости от принципов и сфер деятельности, бывают радиорелейные, тропосферные, проводные, космические, оптические, лазерные и гидроакустические. Так же средства связи разделяют по характеру передаваемой информации на телефонные, телеграфные, телекодовые, телевизионные факсимальные, видеотелефонные, сигнальные и фельдъегерско-почтовые.

Связь играет немаловажную роль в производственно-хозяйственной деятельности общества и управлении государством, вооружёнными силами и всеми видами транспорта, а также в удовлетворении культурно-бытовых надобностей населения. Недостаточный уровень развития средств связи ведёт к уменьшению темпов экономического развития, роста национального дохода и уровня жизни населения.

На b2b-connection.ru Вы найдете много полезной и исчерпывающей информации о закупках, торгах и тендерах на средства связи!

Автоматизация

Автоматизация – применение машин, машинной техники и технологии в производстве с полным или частичным устранением человеческого труда. Автоматизация производства предполагает устранение тяжелого физического труда рабочих, перекладывая задачи на автоматизированное оборудование, функционирующего по принципу саморегуляции. Автоматизация управления – применение компьютерных средств для обработки и передачи информации в управлении производственными процессами. Автоматизация повышает производительность.

Sub Z()
Dim k As Integer
Dim m As Integer
Dim p As Single
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim x As Integer
k = InputBox("Количество округов")
m = InputBox("Количество партий")
p = InputBox("Порог явки изберателей (в %)")
s = "Выборы состоялись в округах: "
For i = 1 To k
    For j = 1 To m
        x = InputBox("Округ " & i & ". Голосов за партию №" & j)
        n = n + x
    Next j
    x = InputBox("Округ " & i & ". Не голосовало")
    If (n / (n + x) * 100) > p Then s = s & i & "; "
    n = 0
Next i
MsgBox (s)
End Sub