Pascal

[PR0Z0N]

Народ,помогите пожалуйста решить задачки,хотя бы какие нибудь:
1) Даны натуральное N и последовательность A1, A2, …,A N, состоящая из N целых чисел. Получить последовательность, которая отличается от исходной тем, что все нечетные элементы удвоены.
2)Дана символьная строка и символ. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Вывести все слова, в которых есть заданный символ.
3)Сформировать массив X(N), N-й член которого определяется формулой X(N) = 1/N!.
4)Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить количество и вывести все самые длинные слова.
5)Задан массив D. Определить следующие суммы: D[1] + D[2] + D[3];D[3] + D[4] + D[5]; D[4] + D[5] + D[6]. Пояснение. Составить подпрограмму для вычисления суммы трех последовательно расположенных элементов массива с номерами от k до т.
Заранее ОГРОМНОЕ СПАСИБО!!!!

[Chudo4258]

1) Даны натуральное N и последовательность A1, A2, …,A N, состоящая из N целых чисел. Получить последовательность, которая отличается от исходной тем, что все нечетные элементы удвоены.

program Project2;
var A:array [1..100] of integer;
    i,n:integer;
begin
write('n= '); readln(n);
for i:=1 to n do
 begin
  write('A[',i,']= '); readln(A[i]);
  if A[i] mod 2 <>0 then A[i]:=2*A[i];
 end;
for i:=1 to n do
 writeln('A[',i,']= ',A[i]);
readln
end.

3)Сформировать массив X(N), N-й член которого определяется формулой X(N) = 1/N!.

program Project2;
var A:array [1..100] of extended;
    i,n,Fact:integer;
begin
write('n= '); readln(n);
Fact:=1;
for i:=1 to n do
 begin
  Fact:=Fact*i;
  A[i]:=1/fact;
  writeln('A[',i,']= ',A[i]:10:5);
 end;
readln
end.

)Задан массив D. Определить следующие суммы: D[1] + D[2] + D[3];D[3] + D[4] + D[5]; D[4] + D[5] + D[6]. Пояснение. Составить подпрограмму для вычисления суммы трех последовательно расположенных элементов массива с номерами от k до т.

program Project2;
var A:array [1..100] of integer;
    i,n,k,t,S:integer;
begin
write('n= '); readln(n);
for i:=1 to n do
 begin
  write('A[',i,']= '); readln(A[i]);
 end;
write('k (1<=k<=n) ='); readln(k);
write('t (1<=t<=n) ='); readln(t);
S:=0;
for i:=k to t do
begin
 S:=S+A[i];
 write('A[',i,']+');
end;
writeln('= ',S);
readln
end.