Дан одномерный целочисленный массив из 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.
Программка на скрине! Надеюсь посодействовал!
Ден Сейсебеков
Зачем вводить n и использовать динамические массивы , если " Дан массив из 15 элементов." ?
Николай Дуринян
согласен, для данного массива, но для 2-ух иных, мне кажется, лучше использовать динамические
Егор Бутученков
т.к мы не знаем кол-во частей больше/меньше
Камилла Эйсак
да, можно разу объявить их по 15, но для чего лишние элементы творить
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт