Question

Срочно !
PASCAL ABC!!!
3.5. Дан одномерный массив С(N). Удалить элементы одномерного массива меньшие заданного числа а; выведите на печать преобразованный массив и число его элементов. Выведите на печать преобразованный массив и число его элементов.

Answer 1

1. program task31133707;
2. var
3.  arr: array of integer;
4.  a, valueOfNumbers, choise, k: integer;
5. begin
6.  Writeln('ВВЕДИТЕ РАЗМЕРНОСТЬ МАССИВА: ');
7.  Readln(valueOfNumbers);
8.  SetLength(arr, valueOfNumbers);
9.  Writeln('ВВЕДИТЕ ЧИСЛО a: ');
10.  Readln(a);
11.  Writeln('КАК ЗАПОЛНИТЬ МАССИВ? СЛУЧАЙНЫМИ ЧИСЛАМИ (0) ИЛИ С КЛАВИАТУРЫ?(1)');
12.  Readln(choise);
13.  if choise = 0 then
14.    for var i := 0 to valueOfNumbers - 1 do
15.      begin
16.        var tmpNumber := Random(valueOfNumbers + 1) + 1;
17.        if tmpNumber < a then continue
18.        else
19.          begin
20.            arr[i] := tmpNumber;
21.            Inc(k);
22.          end;
23.      end
24.  else
25.    for var i := 1 to valueOfNumbers do
26.      begin
27.        var tmpNumber := 1;
28.        Readln(tmpNumber);
29.        if tmpNumber < a then continue
30.        else
31.        begin
32.          arr[i] := tmpNumber;
33.          Inc(k);
34.        end;
35.      end;
36.  Writeln('ИСХОДНЫЙ МАССИВ: ');
37.  for var i := 1 to k do
38.    if arr[i] = 0 then continue
39.    else Write(arr[i], ' ');
40.  Writeln('КОЛИЧЕСТВО ЭЛЕМЕНТОВ МАССИВА: ', k);
41. end.