(АСУ) , совокупность математических методов, технических средств (ЭВМ, средств связи, устройств отображения информации и т. д.) и организационных комплексов, обеспечивающих рациональное управление сложным объектом (процессом) в соответствии с заданной целью. АСУ состоит из основы и функциональной части. В основу входят информационное, техническое и математическое обеспечение. К функциональной части относят набор взаимосвязанных программ, автоматизирующих конкретные функции управления (планирование, финансово-бухгалтерскую деятельность и др.). Различают АСУ объектами (технологическими процессами - АСУТП, предприятием - АСУП, отраслью - ОАСУ) и функциональными автоматизированными системами, напр., проектирования, расчетов, материально-технического и др. обеспечения.
Program help;
Uses Crt;
Const n = 10; (* Размер массива *)
Var a : Array[1..n] of Integer; (* Массив с числами *)
i : Integer;
Begin
Randomize;
ClrScr;
Writeln('Массив: ');
For i := 1 to n do
Begin
a[i] := random(601) - 300; (* Заполняем рандомными числами *)
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)
if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then
a[i] := 0; (* Обнуляем числа кратные 3 и не кратные 5 *)
End;
Writeln('Массив после изменения: ');
For i := 1 to n do
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)
End.