Program Massiv; Const N:= 16; Var A: array [1..N] of integer; i: integer ; Begin Randomize; For i:= 1 to N Do A[i] := -20 + Random(20); For i:= 1 to N Do If A[i]:=0 then Writeln (A[i]) ; Readln; End.
Материнская плата - это устройтсво отвечает за целостность работы всего компьютера, за согласование отдельных частей и объединение их для решения поставленных задачь. Уже на материнскую плату "навешиваются" другие устройства, такие, как - платы оперативной памяти (ОЗУ) - они необходимы для существенного увеличения работы всей системы и для отдельных, конкретных задачь, таких как, решение математических расчетов (в них заносятся данные для расчетов но сам расчет ведет математический процессор или центральный процессор в зависимости от производителя процессоров или решаемой задачи) и т. д. Видеокарта - это устройство эволюционировало в отдельную систему, которая направлена на решение задачь связанных с обработкой изображения и внатоящее время имеет свой специализированный процессор для решения этих задачь. Вообще, обработка изображений, это самая сложная и труодоемкая работа поскольку это связано с естественными законами природы и физики. Процессор - это основное устройство обрабатывающее все данные, за исключением обработки видео и геометричческих расчетов. Ну и последнее значимое устройство - это жеский диск (или "винчестер") он предназначен для постоянного хранения данных. Его система хранения данных в корне отличается от ОЗУ и предназначение его самого и данных хранящихся на нем концептуально отличаются от ОЗУ. Подробнее писать лень, на это существуют книги по информационным технологиям.
Переводим границы промежутков в десятичную систему счисления. Значение - явная ошибка, потому что в двоичной системе не может встречаться цифра 2. Видимо это двойка в какой-то иной системе, начиная с троичной. Но тогда она а любой системе, в том числе и десятичной, останется двойкой. Итак, получены три промежутка: (91;96), (305;311), (2;17). Первому промежутку удовлетворяет последовательность 1) Второму промежутку удовлетворяет последовательность 4) Третьему промежутку удовлетворяет последовательность 6).
Const N:= 16;
Var A: array [1..N] of integer;
i: integer ;
Begin
Randomize;
For i:= 1 to N Do
A[i] := -20 + Random(20);
For i:= 1 to N Do
If A[i]:=0 then Writeln (A[i]) ;
Readln;
End.