Написать программу, которая подсчитывает количество отрицательных элементов в заданном массиве a, размерностью n.

Var a: array[1..999999] of integer; i,k,n: integer; begin readln(n); for i: =1 to n do begin read(a[i]); if a[i]< 0 then k+=1; end; writeln(k); end.

1)основные составляющие персонального компьюетра: системный блок и устройства ввода-вывода информации. к устройствам ввода-вывода информации относятся клавиатура, мышь, монитор, принтер, сканер, видеокамера, динамики и прочие подобные устройства.системный блок состоит из обязательных устройств: материнская плата, жесткий диск, процессор, оперативная память, блок питания, видеокарта, системный динамик. к необязательным составляющим системного блока можно отнести звуковую карту, сетевую карту, floppy, cd и dwd-приводы, картридеры и прочие навороты.

Program pr; var a, b, c: array [1..20] of integer;       i, c1, c2: integer; begin   for i: =1 to 20 do read(a[i]);   for i: =1 to 20 do       if i mod 2 = 0 then begin           b[c1]: =a[i];           inc(c1);       end       else begin           c[c2]: =a[i];           inc(c2);       end;   for i: =1 to 20 do write(b[i], ' ');   for i: =1 to 20 do write(c[i], ' '); end;