в массиве удалить все элементы, имеющие нечетные значения.паскальпожалуйстааа

В массиве удалить все элементы, имеющие нечетные значения.
паскаль
пожалуйстааа

Задать свой вопрос
1 ответ

const n = 10;

var a: array[1..n] of integer;

i, k, j: integer;

begin

randomize;

for i:=1 to n do

begin

a[i] := random(31);

write(a[i],'  ')

end;

writeln;

i := 1;

k := n;

while ilt;=k do

if a[i] mod 2 lt;gt; 0 then

begin

k := k-1;

for j:=i to k do a[j] := a[j+1]

end

else i := i+1;

for i:=1 to k do write(a[i],'  ');

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт