Створити і вивести масив а з nелементами,де n-20. у випадку відсутності шуканих елементів,вивести про це повідомлення. завд. Визначити суму номерів всіх негативних елементів. вивести ці номери.

Program Linao; uses crt; const n = 20; var   x:array [1..n] of real;   i,k,j,sum:integer;   max, min,temp: real; begin   writeln('*** alphaues is thinking... ***');   for i:=1 to n do     begin       write('*');       for j:=1 to n*100000 do j:=j;     end;   writeln;   k:=0;   randomize;   sum:=0;   writeln('негативні елементи: ');   for i:=1 to n do     begin       x[i]:=random(101)-50;       if x[i]<0 then         begin           sum:=sum+i;           writeln(i,'-й елемент, рівний ',x[i]);           k:=1;         end;     end;   if k=0 then     writeln('Немає таких елементів!'); end.