Дан массив С(13). Найти номер последнего отрицательного элемента массива

Question

Дан массив С(13). Найти номер последнего отрицательного элемента массива

Answer 1

Const n=13;
var
c:array[1..n] of integer;
i,num:integer;
begin
  for i:=1 to n do c[i]:=random(-10,10);
  for i:=n downto 1 do begin
    write(c[i],' ');
    if c[i] < 0 then begin
      writeln(i);
      break;
    end;
  end;
end.

Comments

const эт чт

---

это размер массива

---

типа как переменная

---

только которая не изменяется во время программы

---

там все правильно