Интерфейс проекта По рисунку определи тип пользовательского интерфейса.НазадПроверить это 9 задание в онлайн мектеп​

Объяснение:

Pascal

program pr;

 

var

 i, n, k, cout: integer;

 a, b: array [1..100] of integer;

 

begin

 cout := 0;

 k := 1;

 writeln('Введите размер массива');

 readln(n);

 if (n>0) and (n<=10000) then  

 begin

 for i := 1 to n do

 begin

   read(a[i]);

 end;

 writeln;

 for i := 1 to n do

   if a[i] < 0 then

   begin

     cout := cout + 1;

     b[k] := a[i];

     k := k + 1;

   end;

 if cout = 0 then

   writeln(0) else  

   for k := 1 to cout do

     write(b[k]:3);

     end

     else writeln('Не корректный ввод n');

end.