Школьный уровень 1.Найти все элементы массива b(n),большие или равные 0.** экран вывести...

Question

Школьный уровень

1.Найти все элементы массива b(n),большие или равные 0.На экран вывести номер элементов,их значения и количество.

2.В одномерном массиве целых чисел,содержащем 20 элементов,удалить k-ый элемент массива.Массив заполняется случайным образом числами от 0 до 50.

Answer 1

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.