Разработать схему алгоритма, который вводит массив из N целых чисел и выводит номера отрицательных элементов и сами эти элементы Протестировать алгоритм

Разработать схему алгоритма, который вводит массив из N целых чисел и выводит номера отрицательных элементов и сами эти элементы Протестировать алгоритм

  • Program Pr1;
    uses crt;
    var mas:arraybyte of integer;
    i,n:integer;
    Begin
    clrscr;
    readln(n);
    for i:=1 to n do read(masi);
    for i:=1 to n do if masi<0 then writeln(i, ,masi);
    end.

  • Program Pr1;
    uses crt;
    var mas:arraybyte of integer;
    i,n:integer;
    Begin
    clrscr;
    readln(n);
    for i:=1 to n do read(masi);
    for i:=1 to n do if masi<0 then writeln(i, ,masi);
    end.