Задачи

[Arnold9131]

Помогите решить 4 задачи на паскале

Задача 1
Даны действительные числа a1, a2, ..., an. Если в результате замены отрицательных членов последовательности a1, a2, ..., an их квадратами члены будут образовывать неубывающую последовательность, то получить сумму членов исходной по-следовательности; в противном случае получить их произве-дение.

Задача 2
const n =..;
var A,B,C : array [1..n,1..n] of real;
Вычислить С = (A+B)2 (сумма двух матриц A и B возводится в квадрат).
Указание: определите процедуру с параметрами для сложе-ния матриц и процедуру с параметрами для возведения мат-рицы в квадрат.

Задача 3
Для заданной строки определить длину содержащейся в ней максимальной подстроки, не имеющей латинских букв.

Задача 4
Дана строка из строчных латинских букв. Напечатайте все буквы, входящие в текст не менее двух раз.
Указание. Просматривая в цикле символы текста, форми-руйте два множества: одно содержит уже просмотренные символы, другое наполняется теми элементами, которые входят в первое множество.

[Базиля]

ЭЙ, АРНОЛЬД!
Где наработки, Арнольд?!

[Stilet]

Даны действительные числа a1, a2, ..., an. Если в результате замены отрицательных членов последовательности a1, a2, ..., an их квадратами члены будут образовывать неубывающую последовательность, то получить сумму членов исходной по-следовательности; в противном случае получить их произве-дение.

С потолка:

const n=2;
var a:array[1..n] of integer;
 sq,pro,i:integer; b:boolean;
begin
 b:=true; 
 for i:=1 to n do begin
  readln(a[i]);
  sq:=sq+a[i]; 
  if i=1 then p:=a[i] else p:=p*a[i];
  if a[i]<0 then a[i]:=a[i]*a[i];
  if (i>1)and(a[i]<a[i-1]) b:=false;
 end; writeln;
 for i:=1 to n do write(a[i]:5); writeln;
 if b then write(sq) else write(p);
end.

[Arnold9131]

Вообщем по этой ссылку пройдите http://hdd.tomsk.ru/desk/bznjyuqm там файл есть 11 вариант

Кто сможет в короткое время сделать и соответственно небесплатно

[Базиля]

Пиши в аську.