Дан массив целых чисел из 10 элементов, удалить из него все элементы, в которых последняя цифра четная,а само число делится на нее

Вопрос школьника по предмету Информатика

Дан массив целых чисел из 10 элементов, удалить из него все элементы, в которых последняя цифра четная,а само число делится на нее

Ответ учителя по предмету Информатика

Var

A,B:array[1..10] of integer;

i,N:integer;

Begin

N:=0;

WriteLn(‘Введите массив’);

For i:= 1 to 10 do

    Read(A[i]);

For i:= 1 to 10 do

    if not ((A[i] mod 2 = 0) and (A[i] mod (A[i] mod 10) = 0)) then

       Begin

       N:=N+1;

       B[N]:=A[i];

       End;

For i:= 1 to N do

    Write(B[i],’ ‘);

End.