1)Дан целочисленный массив с числом элементов N.Вывести все его нечётные элементы и сумму.
2)Написать программу,которая проверяет,есть ли во введённом с клавиатуры массиве элементы с одинаковым значением.
СРОЧНО!!!

Program z5;  Var a:array [1..1000] of integer; i,s,p,n:integer;Begin  Write(N  = ); readln(n);  for i :=1 to n do    read(a[i]);    s:=0;  for i :=1 to n do    s:=s + a[i];    Writeln(Сумма элементов массива = ,s);  for i :=1 to n do    if(a[i] mod 2 lt;gt; 0) then write(a[i], );End.