Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых.
1 программа с использованием while, 2 программа - repeat

program riad;vara:array [1..10] of integer;i,j:byte;beginwriteln('Vvedite chisla');for i:=1 to n doreadln(a[i]);i:=1;j:=0;repeatif a[i]<abs(a[i]) then j:=j+1;i:=i+1;until i=10;writeln('kol-vo otricat = ',j);readln;end.