Створити і вивести масив а з n-елементами де n-номер варіанта (у мене 8).виконавши завдання свого варіанта . у випадку відсутності шуканих даних вивести про це повідомлення 8)вивести номер п'ятого негативного елементу

program n12345678901011121314; uses crt; const n=8; var  e: array[1..n] of integer;   vid,nom,i: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   writeln('елементи масиву: ');   randomize;   nom: =0; //номер 5-го елементу   vid: =0; // к-ть негативних елементів  for i: =1 to n do      begin          e[i]: =random(100)-50;           write (e[i]: 5);           if e[i]< 0 then              vid: =vid+1;           if (e[i]< 0) and (vid = 5) then              nom: =i;       end;   writeln(); writeln();   if nom< > 0 then           writeln('номер 5-го негативного елементу: ',nom)      else                writeln('такого елемента немає'); end.

uses crt; var i,count: integer; a: array[1..8] of integer; begincount: =0; randomize; for i: =1 to 8 do a[i]: =random(19)-8; for i: =1 to 8 do write(a[i],' '); writeln; for i: =1 to 8 dobeginif a[i]< 0 then inc(count); if (a[i]< 0) and (count = 5) then writeln(i); end; if count < 5 then writeln('empty'); readln(); end.

uses crt; var i,count: integer; a: array[1..8] of integer; begincount: =0; randomize; for i: =1 to 8 do a[i]: =random(19)-8; for i: =1 to 8 do write(a[i],' '); writeln; for i: =1 to 8 dobeginif a[i]< 0 then inc(count); if (a[i]< 0) and (count = 5) then writeln(i); end; if count < 5 then writeln('empty'); readln(); end.

исполнитель буДит иДти 5о шагов

ничего происxоДить не буДит