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

Ответы 4

  • https://znanija.com/task/30475488 , помогите с информатикой пожалуйста
    • Автор:

      june25
    • 6 лет назад
    • 0
  • зачем эти точки в начали каждой строки?
  • Чтобы ты спросил
    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.
    • Автор:

      drakezfvv
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years