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

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.

Comments

i, '-л© н «Ґ¬Ґ­в ¬ ббЁў а ўҐ­', m не поняла?