Помогите, пожайлуста, решить задачи!
Тема "Линейный поиск элемента в массиве". Элементы массива А натуральные числа. Определить, верно ли, что каждое число встречается не более двух раз (написать программу).

Тема "Линейный поиск элемента в массиве". Элементы двух массивов А и В натуральные числа. При этом все элементы массива А различны. Элементы массива В тоже различны. Отыщите элементы, которые одноременно содержатся и в массиве А и в массиве В. (При вводе элементов массива А ( и массива В) проверяйте на был ли он уже введен. Если элемент уже содержится в массиве, то предупредите об этом пользователя и попросите ввести элемент снова).

Тема "Двоичный поиск элемента в массиве". Дан массив целых чисел А, упорядоченный по убыванию. Написать программу, реализующую алгоритм двоичного поиска элемента в массиве А.

Тема "Сортировки". Сортировать по возрастанию элементы массива с индексами от m1 до m2. Метод сортировки: 1) выбором; 2) обменом; 3) включением; (Организуйте меню пользователя для выбора метода сортировки и ввода элементов).

Тема "Строки". Определить является введённая строка символов палиндромом. Ответ выдавать в виде "да/нет". Палиндром - текст, одинаково читающийся от начала к концу и от конца началу ("А роза упала на лапу Азора").

Правила форума
Что делали? Что не получается?

[font=Times New Roman][si[font=Arial]
Написала программу. но моя сестра проверила сказала она неправильная и не дает верного ответа

выкладывайте код, специалисты, когда появятся, проверят.

И правильно делает, если она действительно неправильная.

var N, i,j : integer;
C : array [1..5] of integer;
flag : boolean;
begin
readln (N);
i : =0;
repeat
i : = i+1; C [i] :=N mod 10;
N :=N div 10;
until N=0;
flag : =true;
for j: =1 to i div 2 do
if C [j] <>C[i-j] then
flag: =false;
if flag then writeln (' Да")
else writeln ("Нет");
end
это к задаче полидром

var N, i,j : integer;
C : array [1..5] of integer;
flag : boolean;
begin
readln (N);
i : =0;
repeat
i : = i+1; C [i] :=N mod 10;
N :=N div 10;
until N=0;
flag : =true;
for j: =1 to i div 2 do
if C [j] <>C[i-j] then
flag: =false;
if flag then writeln (' Да")
else writeln ("Нет");
end
задание к палиндрому

Так вроде речь о строке символов идет, а не о числе.

Ну так я сестру попросила заменить, она сказала что даже на числах неправильно

А руками не пробовали программу проверять?

В каком смысле?

Берете конкретные значения и проходите программу.