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

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.