Question

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

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.