Написать программу для: 1. определите есть ли в данном массиве отрицательные элементы 2. есть ли два одинаковых элемента 3. есть ли данное число в среди элементов массива вы мне , заранее!

Написано в pascal: program zadacha; const n = 10; var a: array [1..n] of integer; b, c, i, j: integer; d, e: boolean; begin writeln('введите ', n, ' целых чисел через пробел и нажмите enter'); for i : = 1 to n do read(a[i]); write('b = '); readln(b); c : = 0; for i : = 1 to n do if a[i] < 0 then c : = c + 1; writeln('количество отрицательных элементов массива равно ', c); d : = false; for i : = 1 to n do begin c : = a[i]; for j : = i + 1 to n do if c = a[j] then d : = true; end; if d = true then writeln('в массиве есть одинаковые элементы') else writeln('в массиве нет одинаковых элементов'); e : = false; for i : = 1 to n do if a[i] = b then e : = true; if e = true then writeln('в массиве есть элемент, равный ', b) else writeln('в массиве нет элемента, равного ', b); readln; end.

Язык  python a  =  [1,2,3,4,5,6]  #  массив b  =  10 #  1 a.sort() if  a[0]< 0:     print "есть отрицательные элементы" else:     print  "отрицательных элементов нет" #  2  cnt  =  len(a) for  i  in  a:     if  a.count(i)> 1:         print  "есть повторяющиеся элементы"       break     cnt-=1 if  not cnt:     print  "повторяющихся элементов нет" #  3  if  b  in  a:     print  "в входит в массив" else:   print "в не входит в массив"

Program zada4a(input, output); var a: integer: begin writeln ('введите число.'); read (a); if a> 8 then writeln ('число больше 8. ')else writeln ('число меньше или равно  8. '); end.