Написать программу на паскале, которая вводит массив из n целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. протестировать программу для следующих массивов: а) 3 5 -2 0 -6 -8 1 б) -1 -2 -3 0 -1 2 3 массивы должны вводися вручную а не рандомно.

var a: array[1..100] of integer;

n, i: integer;

begin

write('введите количество элементов массива');

readln(n);

write('вводите элементы массива отделяя их клавишей "enter"');

for i: =1 to n do 

read(a[i]);

for i: =1 to n do 

if a[i]< 0 then write('число ', a[i], ', номер ', i,'; ' );

end.

в 4-м тыс. до  н.  э. из многих небольших территориальных образований  — номов  — возникло два политических объединения  — верхний египет и нижний египет (со столицами в иераконполе и буто). создание единого государства приписывают правителю верхнего египта менесу. столицей объединённого государства около 3000  г. до  н.  э. стал мемфис.

только какое отношение это имеет к информатике?

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.