Написать программу, которая вводит массив с клавиатуры, удаляет все четные элементы и...

Question

Написать программу, которая вводит массив с
клавиатуры, удаляет все четные элементы и выводит массив (с изменениями).

Comments

паскаль?

---

да

Answer 1

Program D1KPxx17;
uses crt;
const n=10;
var
a:array [1..n] of integer;
i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if i mod 2<>0 then
write(a[i],' ');
end.

Comments

главное определись что тебе именно надо)

---

да,и оставить нечётные

---

что да? удалить четные ЗНАЧЕНИЯ? тогда исправь строчку

---

if i mod 2<>0 then исправить на If a[i] mod 2<>0 then и все)))

---

не удаляет

---

все 10 чисел ввожу

---

потом она закрывается,открываю и заного вводить надо

---

ты в Turvo работаешь? попробуй без строки с uses crt;

---

ПРОГА РАБОТАЕТ!!!! ИНФА 100%! просто надо в PascalABC запускать или в Turbo(Borland) надо убрать uses crt;