ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧИ.. ОЧЕНЬ НАДО..

[unknown]

ПОМОГИТЕ ПОЖАЛУЙСТА.. НИЧЕГО НЕ ПОНИМАЮ..((
1.
Дана вещественная квадратная матрица порядка N, все элементы которой различны. Найти скалярное произведение строки с наибольшим элементом на столбец с наименьшим элементом.

2.
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - произвольное число пробелов, за последним словом точка. Напечатать слова, в которых первая буква входит в него еще раз.

3.
Дана последовательность натуральных чисел а1,а2, ..., аN. Определить наибольшую из длин отрезков этой последовательности (подпоследовательностей идущих подряд членов), состоящих из степеней пятерки.

ЗАРАНЕЕ БОЛЬШОЕ СПАСИБО!

[Virtson]

какая задача важнее ?
сделаю только 1.

[unknown]

3 важнее.. спасибо большое!!

[Virtson]

Const
  N = 10;
 
Var
  b: boolean;
  i, k, x, max: integer;
  a: array[1..N] of integer;

begin
 k:= 0; max:=0;
 for i:= 1 to n do
   read(a[i]); {}

 for i:= 1 to n do
 begin
   x:= a[i];
   b:= x>=5;

   while b do
   begin
     if x mod 5 > 0 then
     begin
       b:= false;
       break;
     end;
     x:= x div 5;
     if x<5 then break;
   end;

   if (x=1) and b then inc(k) else
   begin
     if k> max then max:= k;
     k:= 0;
   end;
 end;
  if k> max then max:= k;
  writeln('Dlina = ', max);
  readln;
end.

[unknown]

большое спасибо!!! =)

[Prowler]

Студенты совсем обнаглели! Скоро будут на экзамене тексты билетов на форум скидывать и ждать решений. Потом, блин, выходят дипломированные специлисты...
Анекдот вспомнил: Как вспомню какой из меня инженер и к врачу идти не охота!