Предмет: Информатика,
автор: anna6398
написать программу подсчёта числа отрицательных элементов массива
Ответы
Автор ответа:
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.
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.
anna6398:
i, '-л© н «Ґ¬Ґв ¬ ббЁў а ўҐ', m не поняла?
Похожие вопросы
Предмет: Русский язык,
автор: Blitz228
Предмет: Русский язык,
автор: dashak006
Предмет: Окружающий мир,
автор: yurchenkoko
Предмет: География,
автор: didi2650
Предмет: Другие предметы,
автор: Flamingo666