1)Дан массив целых чисел. Выяснить, верно, ли что сумма элементов массива есть четное число.
2)Дан массив целых чисел. Напечатать все элементы, оканчивающиеся нулем.

Const   N = 13;Var   A:array[1..N] of integer;   i:integer;   os:byte;BeginRandomize;Write('Исходный массив:');os:=0;For i:= 1 to N do    Begin    A[i]:=random(21)-10;    Write(' ',A[i]);    os:=(os+(A[i] mod 10)) mod 10;    End;WriteLn;if os mod 2 = 0 then WriteLn('Сумма - четное число')else WriteLn('Сумма - нечётное число');Write('Элементы, оканчивающиеся нулём:');For i:= 1 to N do    if A[i] mod 10 = 0 then Write(' ',A[i])End.