Школьный уровень 1.найти все элементы массива b(n),большие или равные 0.на экран вывести номер элементов,их значения и количество. 2.в одномерном массиве целых чисел,содержащем 20 элементов,удалить k-ый элемент массива.массив заполняется случайным образом числами от 0 до 50.

var

  b: array[1..100] of integer;

  i, count, n: integer;

begin

  randomize;

  write('n = '); readln(n);

  for i : = 1 to n do

  begin

      b[i] : = random(51) - 25;

      writeln('b[', i, '] = ', b[i]);

  end;

  writeln;

  count : = 0;

  for i : = 1 to n do

      if b[i] > = 0 then

      begin

          writeln('b[', i, '] = ', b[i], ' > = 0');

          inc(count);

      end;

  writeln('count = ', count);

end.

// вторая программа

const

  n = 20;

var

  a: array[1..n] of integer;

  i, k: integer;

begin

  randomize;

  writeln('исходный массив: ');

  for i : = 1 to n do

  begin

      a[i] : = random(51);

      write(a[i], ' ');

  end;  

  writeln;

  write('k = '); readln(k);

  if (k > n) or (k  < 1) then

  begin

      writeln('элемента с таким индексом нет');

      readln;

      exit;

  end;

  for i : = k to n - 1 do

      a[i] : = a[i + 1];

  a[n] : = 0;

  writeln('измененный массив: ');

  for i : = 1 to n - 1 do

      write(a[i], ' ');

  readln;

  writeln;

end.

А думаю я незнаю как ты думаешь