Задан одномерный массив K[n] Создать одномерные массивы L и M Массив L будет содержать четные элементы массива K, а массив M —

Задан одномерный массив K[n] Создать одномерные массивы L и M Массив L будет содержать четные элементы массива K, а массив M —

  • Const n=5;
    var k,l,m:array1..n of integer;
    i,p1,p2:integer;
    begin
    for i:=1 to n do
    read(ki); {задаем массив с n=5 елементов}
    for i:=1 to n do
    if (ki mod 2=0) then {Проверяем четное число или нет}
    begin
    inc(p1); {Если да , то кидаем елемент в массив L}
    lp1:=ki;
    end
    else
    begin
    inc(p2); {Если нет , то кидаем елемент в массив M}
    mp2:=ki;
    end;
    writeln; {Вывод}
    write(Четные:);
    for i:=1 to p1 do
    write(li, );
    writeln;
    write(Нечетные);
    for i:=1 to p2 do
    write(mi, );
    end.
  • Приложение…………………………………………………………….
  • Внимание, только СЕГОДНЯ!
    Ссылка на основную публикацию