Question

Дан одномерный массив состоящий из чисел от 0 до 49 нужно исключить все элементы массива меньше 15(Паскаль)

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),0,49); a.Println;
  a:=a.Where(t->t>=15).ToArray; a.Println
end.

Answer 2

Для решения данной задачи в Паскале можно использовать цикл for и условный оператор if.

1. Создадим одномерный массив, состоящий из чисел от 0 до 49:

var
  arr: array[0..49] of Integer;

2. Заполним массив значениями от 0 до 49:

for i := 0 to 49 do
  arr[i] := i;

3. Исключим все элементы массива, которые меньше 15:

for i := 0 to 49 do
begin
  if arr[i] < 15 then
    arr[i] := -1; // Заменяем элементы, которые меньше 15, на -1
end;

В результате выполнения данного кода, все элементы массива, которые меньше 15, будут заменены на -1. Вы можете изменить это значение в соответствии с вашими требованиями.