Задачи на поиск

[olgaburavleva]

1. Задан одномерный массив целых чисел. Пользователь вводит число. Выяснить, есть ли это число в массиве. В случае, если заданного пользователем числа в массиве нет, вывести число, ближайшее к введеному в сторону увеличения.
2. Задана строка символов произвольной длины. Найти номер первого вхождения заданного символа в строке или, если такого символа нет, вывести на экран сообщение об этом. Функции для работы со строками при решении задачи не использовать.
3. Задан двумерный массив целых чисел. Для каждой четной строки массива найти максимальный элемент, а для каждой нечетной - минимальный и вычислить их сумму.
Решите пожалуйста эти задачи в Паскале.

[Niro]

А сами пробовали решать? Если да - то наработки, нет в поиск или фриланс или конкретные вопросы, что непонятно

[olgaburavleva]

Я просто программирование вообще не понимаю..... Мне нужно сдать зачет, нам дали эти задачи.

[Mad_Cat]

1)

K:=0;
FOR i :=1 to n do begin
if a[i]>=e then begin k:=i;break;end;
j:=k;
for i:=j to n do
if ((a[i]-e)<(a[k]-e)) and ((a[i]-e)>=0) then k:=i;
if k<>0 then begin
if a[k]-e=0 then writeln('a[',k,']=',e)
else if k<>0 then writeln('a[',k,']~',e)
end
else writeln('HETy TAkuX');

2)

k:=0;
for i:=1 to length(s) do
if s[i]=c then begin k:=i;break;end;
if k<>0 then writeln('#',k)
else writeln('HETy TAkuX');

3)

s:=0;
for i:=1 to n do
begin
k:=1;
if odd(i) then 
for j:=2 to n do
if a[i,j]<a[i,k] then k:=j
else 
 for j:=2 to n do
if a[i,j]>a[i,k] then k:=j
s:=s+a[i,k];
end;