1)Дан целочисленный массив с числом элементов N.Вывести все его нечётные элементы и...

Question

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

Answer 1

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.

Comments

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.

---

Спасибо!