Question

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

ті шуканих даних вивести про це повідомлення 8)Вивести номер п'ятого негативного елементу

Answer 1

uses crt;
var i,count:integer;
a:array[1..8] of integer;
begin
count:=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 do
begin
if 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;
begin
count:=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 do
begin
if 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.

Answer 2

Program N12345678901011121314;
uses crt;
const n=8;
var
  e:array[1..n] of integer;
  vid,nom,i: integer;
begin
  writeln('*** alphaues is thinking... ***');
  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.