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

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

Ответ оставил Гость

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.