Создать переменную distant Присвоить ей значение от 1 до 3 по очереди должны зажигаться четные светодиоды в количестве указанном в переменной. Вывести в монитор “Количество светодиодов“ в количестве. Язык програмирования c++
Автоматизированная система - это система, состоящая из персонала и комплекса средств автоматизации его деятельности, реализующая автоматизированную технологию выполнения установленных функций.
Автоматизированная система управления или АСУ - комплекс аппаратных и программных средств, предназначенный для управления различными процессами в рамках технологического процесса, производства, предприятия.
АСУ применяются в различных отраслях промышленности, энергетике, транспорте и т. п.
К основным принципам автоматизации информационных процессов относят: окупаемость, надежность, гибкость, безопасность, дружественность, соответствие стандартам.
Окупаемость означает затрату меньших средств, на получение эффективной, надёжной, производительной системы, возможностью быстрого решения поставленных задач. При этом считается, что срок окупаемости системы должен составлять не более 2–5 лет.
Надежность достигается использованием надёжных программных и технических средств, использования современных технологий. Приобретаемые средства должны иметь сертификаты и (или) лицензии.
1)var a:array [1..10] of integer; i,sum:integer;begin randomize; sum:=0; for i:=1 to 10 do begin a[i]:=random(100)-50; write (a[i],' '); if a[i] < 0 then sum:=sum+a[i]; end; writeln; writeln ('Summa: ',sum); readln;end. 2)var a:array [1..10] of integer; i,max,index:integer;begin for i:=1 to 10 do begin write ('A[',i,'] = '); readln (a[i]); end; max:=a[1]; index:=1; for i:=2 to 10 do if a[i] > max then begin max:=a[i]; index:=i; end; writeln ('Max: ',max,'.Index: ',index); readln;end. 3)var a:array [1..10] of integer; max,min,i,temp:integer;begin randomize; for i:=1 to 10 do begin a[i]:=random(50); write (a[i],' '); end; writeln; max:=1; min:=1; for i:=2 to 10 do if a[i] > a[max] then max:=i else if a[i] < min then min:=i; writeln ('Max: ',a[max]); writeln ('Min: ',a[min]); temp:=a[min]; a[min]:=a[max]; a[max]:=temp; for i:=1 to 10 do write (a[i],' ');end.Не знаю- правильно ли?
Автоматизированная система - это система, состоящая из персонала и комплекса средств автоматизации его деятельности, реализующая автоматизированную технологию выполнения установленных функций.
Автоматизированная система управления или АСУ - комплекс аппаратных и программных средств, предназначенный для управления различными процессами в рамках технологического процесса, производства, предприятия.
АСУ применяются в различных отраслях промышленности, энергетике, транспорте и т. п.
К основным принципам автоматизации информационных процессов относят: окупаемость, надежность, гибкость, безопасность, дружественность, соответствие стандартам.
Окупаемость означает затрату меньших средств, на получение эффективной, надёжной, производительной системы, возможностью быстрого решения поставленных задач. При этом считается, что срок окупаемости системы должен составлять не более 2–5 лет.
Надежность достигается использованием надёжных программных и технических средств, использования современных технологий. Приобретаемые средства должны иметь сертификаты и (или) лицензии.
Объяснение:
2)var a:array [1..10] of integer; i,max,index:integer;begin for i:=1 to 10 do begin write ('A[',i,'] = '); readln (a[i]); end; max:=a[1]; index:=1; for i:=2 to 10 do if a[i] > max then begin max:=a[i]; index:=i; end; writeln ('Max: ',max,'.Index: ',index); readln;end.
3)var a:array [1..10] of integer; max,min,i,temp:integer;begin randomize; for i:=1 to 10 do begin a[i]:=random(50); write (a[i],' '); end; writeln; max:=1; min:=1; for i:=2 to 10 do if a[i] > a[max] then max:=i else if a[i] < min then min:=i; writeln ('Max: ',a[max]); writeln ('Min: ',a[min]); temp:=a[min]; a[min]:=a[max]; a[max]:=temp; for i:=1 to 10 do write (a[i],' ');end.Не знаю- правильно ли?