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

"все элементы, в которых последняя цифра четная,а само число делится на нее" 6274, последняя цифра 4, число 6274 на 4 не делится..

Именно! Потому что сказано в условии: "УДАЛИТЬ из него все элементы,...". УДАЛИТЬ, а не ОСТАВИТЬ, как это Вы пытаетсь делать.

VarA,B:array[1..10] of integer;i,N:integer;BeginN:=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.