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

Дан массив целых чисел из 10 элементов, удалить из него все элементы, в которых последняя цифра четная,а само число делится на нее
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017 // Внимание! Если программа не работает, обновите версию! begin   var a:=ArrRandom(10,1,10000); a.Println;   a:=a.Where(x->not ((x mod 10<>0) and (x mod 10).IsEven       and (x mod (x mod 10)=0))).ToArray;   a.Println end. Пример 1266 6274 1359 3481 9554 324 1546 3063 8166 1562 6274 1359 3481 9554 1546 3063
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы