Народ, помоги с 2-мя задачками! Плиз!

[Маськ@]

1) Элементы массива генерируются случайным образом в заданном диапазоне [-65; 2] (дана матрица В). Для каждого столбца с четным номером вычислить и напечатать сумму квадратов элементов этого столбца, а для каждого столбца с нечетным номером вычислить произведение элементов. Новый одномерный массив А, составленный по данным вычислениям, вывести в ячейки электронной таблицы.
2) Исходные данные вводятся в программу с клавиатуры, результат выводится на следующей строке. Не используя стандартные функции, вычислить с точностью Е=10^(-4):
y=(x^3)/3!+(x^5)/5! + ... + (x^(2*n+1))/(2*n+1)!

Народ, прошу, помогите! ! !

[Sazary]

uses crt;
const n=4;
var
b : array[1..n,1..n] of integer;
a : array[1..n] of real;
i,j : integer;
begin
clrscr;
randomize;
writeln('Matrix b:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  b[i,j] := random(68)-65;
  write(b[i,j]:4);
  end;
 writeln;
 end;
writeln;
{-------}
writeln('Vector a:');
for j:=1 to n do
 begin
 if odd(j) then
  begin
  a[j]:=1;
  for i:=1 to n do
   a[j] := a[j]*b[i,j];
  end
 else
  begin
  a[j] := 0;
  for i:=1 to n do
   a[j] := a[j] + sqr(b[i,j]);
  end;
 write(a[j]:8:0);
 end;
readln;
end.

[Sazary]

Вторая:

uses crt;
const e=0.0001;
var
x,y,a : real;
i : longint;
begin
clrscr;
write('Enter x: ');
readln(x);
y:=0;
a:=x;
i := 1;

repeat
inc(i,2);
a := a*x*x/((i-1)*i);
if a<e then break;
y := y + a;
until a>=e;
writeln('y= ',y:10:7);
readln;
end.

Закрыто. Название темы