Помогите зделать 4 задачки на масивы до утра!!!!

[WhatZ]

Пожалуста, помогите зделать такие задачки :

1.Дано масив А размером mxn. Сделать масив В с елементов четных столбцов и масив с елементов нечетных столбцов масива А. B,C - динамические переменные.

2.Дано масив А размером nЧm. Получить сложение ненулевых елементов последовательности b1,...,bn, где bk - это сумма найбольшого и найменьшого значений елементов k-го рядка. A,B -
динамические переменные.

3.Найти количество отрицательных елементов масива A[n].

4.Если в масиве есть заданое число k, то найти что ближе к началу масив : максимальный елемент или число k?

[goblinyara]

хммм... а правила читать так и не умеем... эхх....
1. - не понял какие такие парные и непарные столбцы.
2. - может, чуть попожже напишу, минут через 30
3. -

k:=0; //Переменная с количеством отрицательных элементов
for i:=1 to n do
if a[i]<0 then inc(k);

4. -

max:=a[1];
imax:=1;
res:=0;
for i:=1 to n do 
  if a[i]>max then 
  begin
     max:=a[i];
     imax:=i;
  end;
for i:=n downto 1 do
  if (a[i] = k) and (k < imax) then res:=1;

[WhatZ]

сори, исправил))

[goblinyara]

про правила я имел ввиду,что просьбы "Помогите, горю!!!" надо задавать в другом разделе...

[WhatZ]

а эт ен горе) Не зделаю то пойду на перездачу)))
Просто непонимаю немного че у меня не так было))

И еще, мона вопросик, вот у меня есть задачка : Написать програму которая будет воспроизводить комплексное число в степень n. Исполнение нужно реализовать с помощью модулей.
Интересно что здесь не правильно :

Program Ex_3_Lab_5;
Uses complexn;
var
a,b:coplex;
i,n:read;
begin
Write("число А : ");
ReadLN(a);
WriteLn("число N : ");
ReadLN(n);
b:=a;
for i to n do
MulC(b,a,b);
WriteLn('A в степене n = ',b);
end.

[goblinyara]

1 -

const m=10;
      n=20;
var a: array[1..m,1..n] of integer;
    b,c: array of integer;
    i,j,k1,k2: Integer;
begin
  SetLength(B, (m * n) div 2);
  SetLength(C, (m * n) div 2);
  k1:=0;
  k2:=0;
  for I := 1 to m do
    for j := 1 to n do
      a[i,j]:=random(10);
  for i := 1 to m do
    for j := 1 to n do
      if (j mod 2 =0) then
        begin
          inc(k1);
          b[k1]:=a[i,j];
        end
        else
        begin
          inc(k2);
          c[k2]:=a[i,j];
        end;
end;

[goblinyara]

хмм... а модуль complexn можно увидеть? и в каком смысле неправильно?
З.Ы. кстати, "горю" было от слова "гореть"

[WhatZ]

Извини, но можна тебя попросить последний код, точнее задача под номером 1 записать полностью рабочой програмкой, а то я чего немогу сконструировать. ((

[goblinyara]

program Project1;
const m=10;
      n=20;
var a: array[1..m,1..n] of integer;
    b,c: array of integer;
    i,j,k1,k2: Integer;
begin
  SetLength(B, (m * n) div 2);
  SetLength(C, (m * n) div 2);
  k1:=0;
  k2:=0;
  for I := 1 to m do
    for j := 1 to n do
      a[i,j]:=random(10);
  for i := 1 to m do
    for j := 1 to n do
      if (j mod 2 =0) then
        begin
          inc(k1);
          b[k1]:=a[i,j];
        end
        else
        begin
          inc(k2);
          c[k2]:=a[i,j];
        end;
end.

ну а уж с выводом результатов на экран, я думаю, сами справитесь
ПыСы: добавилась всего одна строчка

[capta1n]

Мой вариант - динамические массивы, переменные B,C - указатели на массив, при задании колличества столбцов равного единице программа пишет ошибку - это естественно, ибо тогда у нас одномерный массив, что противоречит условию:

program exp;
const
 m = 5;
 n = 5;
 r = n div 2;
type
 T  = array [1..r,1..m] of byte;
 TT = array [1..n-r,1..m] of byte;
var
 A : array [1..m,1..n] of byte;
 B : ^T;
 C : ^TT;
 i, k, x, j : byte;
begin

 randomize;
 for i:=1 to m do
 begin
   for k:=1 to n do
   begin
     A[i,k]:=random(20);
     write (A[i,k],'|')
   end;
   writeln
 end;

 new(C);
 new(B);

 i:=1;
 x:=1;
 while x<=n do
 begin
   for j:=1 to m do C^[i,j]:=A[j,x];
   inc(i);
   inc(x,2)
 end;

 i:=1;
 x:=2;
 while x<=n do
 begin
   for j:=1 to m do B^[i,j]:=A[j,x];
   inc(i);
   inc(x,2)
 end;

 writeln;
 for i:=1 to n-r do
 begin
   for k:=1 to m do write (C^[i,k],'|');
   writeln
 end;

 writeln;
 for i:=1 to r do
 begin
   for k:=1 to m do write (B^[i,k],'|');
   writeln
 end;

 readln;

end.