Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.