Question

написать программу подсчёта числа отрицательных элементов массива 

Answer 1

program massiv;
const
n=12;
var
i: integer;
m : array [1..n] of integer;
begin
for i := 1 to n do
begin
write('‚ўҐ¤ЁвҐ ' , i , '-л© н «Ґ¬Ґ­в ¬ ббЁў  ');
read (m);
end;
begin
for i := 1 to n do
begin
if m < 0 then
writeln( i, '-л© н «Ґ¬Ґ­в ¬ ббЁў  а ўҐ­', m);
end;
end;
end.