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

Question

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

Answer 1

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.

Answer 2

'Zdacha in VB.NET
Module Module1
Sub Main()
dim n as integer=console.readline()
dim mas(n),sum as integer
for i=1 to n
mas(i)=val(console.readline())
sum+=mas(i)
if mas(i) mod 10=0 then console.writeline(mas(i))
next
if sum mod 2=0 then console.writeline("Chetnoe chislo") else console.writeline("Nechetnoe chislo")
End Sub
End Module