Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Створити і вивести масив а з 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 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.