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

Question

Информатика

Настасья

6 июля, 13:45

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

+3

Ответы (2)

Знаете ответ на вопрос?

Мелетий · Answer 1

Program Pr1;

uses crt;

var mas:array[byte] of integer;

i, n:integer;

Begin

clrscr;

readln (n) ;

for i:=1 to n do read (mas[i]) ;

for i:=1 to n do if mas[i]<0 then writeln (i,' ', mas[i]) ;

end.

Антонина · Answer 2

Program Pr1;

uses crt;

var mas:array[byte] of integer;

i, n:integer;

Begin

clrscr;

readln (n) ;

for i:=1 to n do read (mas[i]) ;

for i:=1 to n do if mas[i]<0 then writeln (i,' ', mas[i]) ;

end.