program prog;
uses crt;
const n=10;
var a:array [1..n] of integer;
i:integer;
begin
clrscr;
for i:=1 to n do readln(a);
clrscr;
for i:=1 to n do if odd(a) then writeln(a);
end.
Выборка нечетных чисел из массива в паскале
Всем доброго времени суток! У меня такая задача возникла (цитирую): "программа выборки из одномерного массива[1...N] нечетных чисел, N<30, N вводится с клавиатуры." ИМХО, алгоритм проги прост: в цикле от 1 до N проверяем остаток деления каждого элемента массива на 2. Если остаток есть, значит элемент не четный, ну и т.д. Проблема в том, что я не изучал паскаль и не знаю его синтаксиса. Буду благодарен, если кто-нибудь выложит рабочий код проги.
а что с этими нечетными числами делать-то?
в этом коде числа будут выводиться на экран...
Код:
в этом коде числа будут выводиться на экран...
Большой пасиб! Чего с этими числами делать, неизвестно. Енто вопрос из экзаменационного билета, тама главное, чтобы числа выбирал нормально.