var
mas : array [0..16] of integer = (1,34,6,3,7,3,8,12,56,11,9,5,17,13,44,33,3);
procedure CountNumbers();
var
i, count : integer;
begin
count := 0;
for i := 0 to sizeof(mas) - 1 do begin
if (mas mod 2) <> 0 then
inc(count);
end;
end;
// итого 11 нечетных чисел :)
(Турбо Паскаль 7.0) Вычисление кол-ва нечетных чисел
Нужно циклами решить задачу с таким условием:
Вычислиь количество нечетных чисел из 17 заданных
P.S в долгу не оcтанусь могу подарить пару коротких номеров ICQ
Вычислиь количество нечетных чисел из 17 заданных
P.S в долгу не оcтанусь могу подарить пару коротких номеров ICQ
Пардон, если ошибусь синтаксисом, давно паскаль учил. Но прмерно так:
заносишь числа в массив num и вычисляешь (Total - количество нечетных чисел):
For i:=0 to 16
begin
if (num mod 2 <> 0) then
begin
Total:=Total+1;
end;
end;
заносишь числа в массив num и вычисляешь (Total - количество нечетных чисел):
For i:=0 to 16
begin
if (num mod 2 <> 0) then
begin
Total:=Total+1;
end;
end;
TranQ,[COLOR="Red"] в следущий раз за дубликат тем и неправильное название темы и за размещение темы не в правильном разделе форума codеnet - будет бан.[/COLOR]
можно в одну строчку
заданные это ввод с клавиатуры?
ps что за мания по каждому поводу массив заводить
заданные это ввод с клавиатуры?
Код:
c:=0;
for i:=1 to 17 do begin read(x); if odd(x) then c:=c+1 end
for i:=1 to 17 do begin read(x); if odd(x) then c:=c+1 end
ps что за мания по каждому поводу массив заводить
Цитата: OlgaKr
TranQ,[COLOR="Red"] в следущий раз за дубликат тем и неправильное название темы и за размещение темы не в правильном разделе форума codеnet - будет бан.[/COLOR]
Сорри я не знал
Цитата: nilbog
можно в одну строчку
заданные это ввод с клавиатуры?
ps что за мания по каждому поводу массив заводить
заданные это ввод с клавиатуры?
Код:
c:=0;
for i:=1 to 17 do begin read(x); if odd(x) then c:=c+1 end
for i:=1 to 17 do begin read(x); if odd(x) then c:=c+1 end
ps что за мания по каждому поводу массив заводить
да похоже,что с клавиатуры,так как дополнительных условий нет
С массивами думаю не катит,но приз дам НИБЛОГ'у,только
решение есть,тему можно закрыть
ЗЫ ниблог как с тобой связаться,нужно чуть еще проконсультироваться по поводу задачи....