Мне нужно решить три задачи для зачета, череп не варит и соображать просто не хватает времени, заранее благодарен.

1. Найти сумму элементов одномерного массива вещественных чисел, меньших заданного числа. Найти произведение квадратов не нулевых элементов массива
2. Подсчитать количество слов, начинающихся на большую букву и содержащих хотя бы один знак. Напечатать все слова, содержащие две рядом стоящие буквы. (большие и малые буквы не различаются)
3. Заполнить файл последовательного доступа f целыми числами, полученных с помощью генератора случайных чисел. Получить в файле g:
а) те компоненты файла f, которые являются четными;
б) те компоненты файла f, которые делятся на m и не делятся на n;
c) все компоненты файла f, исключив повторные вхождения чисел, и вывести файл g на печать.

Спасибо за быстрый ответ, но есть еще проблема, как в начале программы объявлять переменную типа масив, в моем пособии есть только с диапозоном, типа:
var a:array [1..20] of integer;
что означает переменная n? Еще вопрос, как заполнятся должен массив в первом задании. Проблема в том, что я это как-то смутно представляю.

Во втором задании я накопал алгоритм, программа запускается, только не работает т.е. не считает кол-во слов на заглвную букву.
Проверьте, что я там мог упустить?

const
symbols = ['+', '-', ':', '.', '*', '/','>', '=', '<'];

{Есть-ли в слове одинаковые соседнии буквы}
function isHaveEq(data : string) : Boolean;
var
flag : Boolean;
i : Integer;
begin
flag := false;

i := 1;

while (i <= length(data)) and (not flag) do
begin
{Регистр не важен}
if ( (data[i] = data[i - 1]) or (ord(data[i])+32 = ord(data[i - 1])) or
(ord(data[i]) = ord(data[i - 1])+32)
)
and
( ( (data[i] >= 'a') and (data[i] <= 'z') ) or
( (data[i] >= 'A') and (data[i] <= 'Z') )
) then
flag := true;

i := i + 1;
end;

isHaveEq := flag;
end;

{Буква заглавная?}
function isCapital(data : char) : Boolean;
begin
if (ord(data) >= 65) and (ord(data) <= 90) then
isCapital := true
else
isCapital := false;
end;

{Есть-ли в слове символы}
function isHaveSymbols(data : string) : Boolean;
var
flag : Boolean;
i : Integer;
begin
flag := false;
i := 1;

{Go to first space}
while (not flag) and (i <= length(data)) do
begin
if data[i] in symbols then
flag := true;

inc(i);
end;

isHaveSymbols := flag;
end;

var
calnum, preqv : Boolean;
data : string;
i : Integer;
count : Integer;
wd : string; {буффер}
whatDo : Integer; {Так, фигня}

begin
calnum := true;
preqv := true;

count := 0;
wd := '';

writeln('Чего надо? (1 - кол-во слов, 2 - слова с один. сос. буквами, все)');
readln(whatDo);

case whatDo of
1: preqv := false;
2: calnum := false;
end;

write('Строка: '); readln(data);

{Прибавляем к строке пробел}
data := data + ' ';
i := 1;

while i <= length(data) do
begin
{если встречаю '**', оканчиваю цикл}
if (data[i] = '*') and (data[i + 1] = '*') and
((data[i + 2] = ' ') or (i + 2 >= length(data))) then
i := length(data) + 1;

if data[i] <> ' ' then
wd := wd + data[i]
else
begin
if (isCapital(wd[1])) and (calnum) and
(isHaveSymbols(wd)) then
inc(count);

if (isHaveEq(wd)) and (preqv) then
writeln(wd);

wd := '';
end;

i := i + 1;
end;

if calnum then
writeln('Кол-во слов, начинающ. с заглавной, и имеющих символы ',count);
end.

Хотя често я не очень представляю, как должен интерфейс работать в этой программке, все это мои смутные догадки

Спасибо большое условие задач перепроверю и выложу завтра. Еще раз спасибо.

Мне кажется проще последнее задание можно сделать по каждому пункту по программке. Единственно в третьей советуют поступить таким образом, только я не догоняю, может у тебя получится:
Код проверки для третьего варианта (если использовать тип byte):

Код:
if not(x in mn)
then
  begin
   write(g,x);
   mn:=mn+[x];
  end;

Seo
братан помоги пожалуйста решить задачу!!!
к завтрешнему утру надо

Приветик!
помоги! Реши задачу  в среду уже сдавать надо.

1) напечатать все слова, содержащие две рядом стоящие одинаковые буквы. (Большие и малые буквы не различаются).
2) определить количество наибольших не четных чисел. Если их нет, тогда выдать сообщение.

решение задачи:

uses
crt;
var
u,s,a1,a2: string;
ws: array[1..100] of string;
kol,l,i,j,q,x,y,z: integer;

begin
writeln('Введите строку');
readln(u);
l:= length(u);
a1:='abcdefghijklmnoprstvuwxyzабвгдеёжзийклмнопрстуфхцчшщбыъэюя'
a2:='ABCDEFGHIJKLMNOPRSTVUWXYZАБВГДЕЁЖЗЙИКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ'
i:=1;
{Разбиение строки на "слова"}
q:=1;
z:=0;
s:='';
ws[1]:='';
for i:=1 to l do
  begin
   if u[i]<>' '
    then
     ws[q]:=ws[q]+u[i]
    else
     begin
      if ws[q]<>''
       then
        begin
         inc(q);
         ws[q]:='';
        end;
     end;
  end;

if ws[q]=''
  then
   z:=q-1
  else
   z:=q;

{Вывод "слов" - для теста, можно убрать}
writeln;
for i:=1 to z do
  writeln(ws[i]);
readln;

{Подсчет количества слов, начинающихся с большой буквы, и с символом}
kol:=0;

for i:=1 to z do
  begin
   s:=ws[i];
   if pos(s[1],a2)<>0
    then
     for j:=2 to length(s) do
      begin
       if s[j] in ['.',',','!','+','/','*','-','=','^','&','%','@']
        then
         begin
          kol:=kol+1;
          break;
         end;
      end;
  end;

writeln('Количество = ',kol);

{Вывод слов, в которых есть одинаковые буквы}
writeln;
for i:=1 to z do
  begin
   s:=ws[i];
   for j:=1 to length(s)-1 do
    begin
     x:=pos(s[j],a1) + pos(s[j],a2);
     y:=pos(s[j+1],a1) + pos(s[j+1],a2);
     if (x = y) and (x <> 0)
      then
       begin
        writeln(ws[i]);
        break;
       end;
    end;
  end;
readln;
end.

Дан двумерный массив. Составить одномерный массив из номеров столбцов, где на главной диагонали число Фибоначчи. Оформить в виде процедуры или функции. Помогите пожалуйста.