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

Program z5; Var a:array [1..1000] of integer; i,j,n,k,s:integer;Begin Write('N = '); readln(n); for i :=1 to n do read(a[i]); for i :=1 to n do begin for j:=1 to n do if (a[i] = a[j]) then k:=k+1; end; if(k=n5)then writeln('Нет') else writeln('Есть')End.

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 <> 0) then write(a[i],' ');End.