Найти количество положительных элементов и сумму индексов отрицательных элементов массива - Turbo Pascal - Ответ 3611883

const
  n = 10;
type
  mas = array[1..n] of integer;
var
  v: mas;
   i, j, k, s: integer;
procedure swap(var x, y: integer); //процедура обмена значениями элементов(перестановка элементов)
var
  t: integer;
begin
  t := x;
  x := y;
  y := t
end;
procedure random_mas(var v: mas); //процедура заполнения случайными числами
var
  i: integer;
begin
  for I := 1 to n do
    v[i] := random(10) - 5;
end;
procedure print_mas(v: mas); //процедура вывода массива на экран
var
  i: integer;
begin
  for i := 1 to n do 
    write(v[i], ' ');
end;
begin
  s := 0;
  k := 0;
  writeln('Исходный массив:');
  random_mas(v);
  print_mas(v);
  writeln;
  for i := 1 to n do
    if (v[i] > 0) and (s <> 0) then k := k + 1 else
      s := s + i;
  for j := 1 to N - 1 do
    for i := 1 to N - j do
      if v[i] < v[i + 1] then
        swap(v[i], v[i + 1]);
  writeln('Отсортированный массив');
  print_mas(v); writeln;
  writeln('Кол-во положительных: ', k);
  writeln('Сумма индексов отрицательных элементов: ', s);
  begin  
  end;
end.