Безотлагательно !PASCAL ABC!!!3.5. Дан одномерный массив С(N). Удалить элементы одномерного массива
Безотлагательно !
PASCAL ABC!!!
3.5. Дан одномерный массив С(N). Удалить элементы одномерного массива наименьшие данного числа а; выведите на печать преобразованный массив и число его элементов. Выведите на печать преобразованный массив и число его частей.
Аделина Дыдымова
ахах, не посодействуют с АБС
Моралева
Эльвира
Для чего тогда вообщем отвечать ?
1 ответ
Валерия Абдулкакова
- program task31133707;
- var
- arr: array of integer;
- a, valueOfNumbers, choise, k: integer;
- begin
- Writeln('ВВЕДИТЕ РАЗМЕРНОСТЬ МАССИВА: ');
- Readln(valueOfNumbers);
- SetLength(arr, valueOfNumbers);
- Writeln('ВВЕДИТЕ ЧИСЛО a: ');
- Readln(a);
- Writeln('КАК ЗАПОЛНИТЬ МАССИВ? СЛУЧАЙНЫМИ ЧИСЛАМИ (0) ИЛИ С КЛАВИАТУРЫ?(1)');
- Readln(choise);
- if choise = 0 then
- for var i := 0 to valueOfNumbers - 1 do
- begin
- var tmpNumber := Random(valueOfNumbers + 1) + 1;
- if tmpNumber lt; a then continue
- else
- begin
- arr[i] := tmpNumber;
- Inc(k);
- end;
- end
- else
- for var i := 1 to valueOfNumbers do
- begin
- var tmpNumber := 1;
- Readln(tmpNumber);
- if tmpNumber lt; a then continue
- else
- begin
- arr[i] := tmpNumber;
- Inc(k);
- end;
- end;
- Writeln('Начальный МАССИВ: ');
- for var i := 1 to k do
- if arr[i] = 0 then continue
- else Write(arr[i], ' ');
- Writeln('КОЛИЧЕСТВО Частей МАССИВА: ', k);
- end.
Женек Хуторный
для чего эти точки в начали каждой строки?
Анатолий
Чтобы ты спросил
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов