Дан одномерный целочисленный массив из 15 частей. Сформировать 2 новых массива:
Дан одномерный целочисленный массив из 15 частей. Сформировать 2 новых массива: в один включить все числа больше 4, в иной все другие.
Задать свой вопрос2 ответа
Анна Сококина
Var
ar, ar1, ar2: array[1..15]of integer;
i, c1, c2: integer;
begin
c1 := 0;
c2 := 0;
for i := 1 to 15 do
begin
read(ar[i]);
if(ar[i] gt; 4) then begin c1 := c1 + 1; ar1[c1] := ar[i]; end
else begin c2 := c2 + 1; ar2[c2] := ar[i]; end;
end;
//вывод 2-ух новых массивов.
for i := 1 to c1 do if(ar1[i] lt;gt; 0) then write(ar1[i], ' ');
writeln;
for i := 1 to c2 do if(ar2[i] lt;gt; 0) then write(ar2[i], ' ');
end.
ar, ar1, ar2: array[1..15]of integer;
i, c1, c2: integer;
begin
c1 := 0;
c2 := 0;
for i := 1 to 15 do
begin
read(ar[i]);
if(ar[i] gt; 4) then begin c1 := c1 + 1; ar1[c1] := ar[i]; end
else begin c2 := c2 + 1; ar2[c2] := ar[i]; end;
end;
//вывод 2-ух новых массивов.
for i := 1 to c1 do if(ar1[i] lt;gt; 0) then write(ar1[i], ' ');
writeln;
for i := 1 to c2 do if(ar2[i] lt;gt; 0) then write(ar2[i], ' ');
end.
Ден Сейсебеков
Зачем вводить n и использовать динамические массивы , если " Дан массив из 15 элементов." ?
Николай Дуринян
согласен, для данного массива, но для 2-ух иных, мне кажется, лучше использовать динамические
Егор Бутученков
т.к мы не знаем кол-во частей больше/меньше
Камилла Эйсак
да, можно разу объявить их по 15, но для чего лишние элементы творить
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
в ряду натуральных чисел 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 причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Облако тегов