Задать вопрос
9 февраля, 00:45

Дан массив из 10 целых элементов из диапазона [-10; 7]. переписать в другой массив все нечетные элементы. при этом вывести исходный и полученный массив

+4
Ответы (1)
  1. А
    9 февраля, 04:06
    0
    Var a, b: array [1 ... 10] of integer;

    i, j: integer;

    begin

    j : = 1;

    for i : = 1 to 10 do

    read (a[i]) ;

    for i : = 1 to 10 do

    if (a[i] mod 2) 0 then

    begin

    b[j] : = a[i];

    inc (j) ;

    end;

    for i : = 1 to 10 do

    write (a[i], ' ') ;

    writeln;

    for i : = 1 to j - 1 do

    write (b[i], ' ') ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дан массив из 10 целых элементов из диапазона [-10; 7]. переписать в другой массив все нечетные элементы. при этом вывести исходный и ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Войти
Задать вопрос