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

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

Const

N = 13;

Var

A:array[1 ... N] of integer;

i:integer;

os:byte;

Begin

Randomize;

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.