1)составьте программу ввода элементов массива а[1..8 ] с клавиатуры и вывода на экран элементов с отрицательными значениями; 2)составьте программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями

Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018

1)

begin

  var a : = readarrinteger(8);

  a.where(t -> t < 0).println;

end.

2)

begin

  var a : = readarrinteger(6);

  a.where(t -> t > 0).println;

end.

Наrdwаrе  – аппаратные средства т.е. механические, электрические и электронные узлы и компоненты компьютера. основные устройства компьютера:  -  микропроцессор - память компьютера (внутренняя  и  внешняя) -  устройства ввода  информации -  устройства вывода  информации -  устройства передачи и приема  информации системный блок  содержит  такие основный устройства пк как  системная плата с процессором и оп, накопители на магнитных дисках, cd-rom, блок питания. материнская (системная) плата  – основной аппаратный компонент где находятся разъемы для установки микропроцессора, оперативной памяти, кварцевый резонатор, базовая система ввода-вывода bios, микросхемы, интерфейс ввода-вывода (последовательный порт, параллельный порт, интерфейс клавиатуры, дисковый интерфейс и тд.) и шина. часть технического обеспечения, конструктивно отделенных от основного блока компьютера называют  периферийными  (устройства ввода-вывода) для подключения устройств ввода-вывода  на системном блоке имеются разъемы различных портов: сом  - последовательные порты.   последовательно электрические импульсы, несущие информации. к ним обычно подключают мышь и модем. lpt  - параллельный порт. передает одновременно 8 электрических импульсов. реализует более высокую скорость информации, используют для подключения принтера. usb  - последовательная универсальная шина (universal serial bus) –  обеспечивает высокоскоростное подключение нескольких периферийных устройств (сканер, цифровая камера и тд)

//pascalabc.net 3.1 сборка 1200 const       n = 1000; begin       var primes : = new list< integer> ();             for var i : = 2 to n do       begin               var f : = true;               foreach var prime in primes do                       if i mod prime = 0 then begin                               f : = false;                               break;                       end;                             if f then primes.add(i);       end;             foreach var prime in primes do               write(prime, ' ');       writeln;       writeln('время вычисления: ', milliseconds / 1000); end.