Умоляю, помогите чем сможете, пожалуйста! Срочно нужно!

[HitKitProgValid]

1) Сформировать одномерный массив, состоящий из произведений четных элементов, располагающихся в четных строках матрицы X (n x m).

2) Все элементы матрицы X (n x n), лежащие ниже главной диагонали, заменить средним арифметическим элементов, значение которых меньше номера столбца.

3) Ввести данные о банковских операциях: Номер расч. счета, признак валютного счета, банк, дата операции, наименование операции, вид операции (приход/расход), количество платежей, сумма платежей.
Список операций загрузить из файла.
Данные сохранять в компоненте TMemo.

4) Загрузить из файла информацию о сортах цветов
Тип: например: садовые, дикие, комнатные
Вид
Подвид
При выборе подвида загрузить информацию о сортах в компоненте TMemo.
Добавить возможность изменения шрифта текста.
C помощью InputQuery задать высоту формы.
В строку состояния вывести текущий день недели и название шрифта текста.

5) В заданном каталоге и всех его подкаталогах найти и вывести в компонент ListBox имена каталогов, в которых зарегистрировано менее заданного числа файлов, отвечающих требованиям:
-только для чтения,
-создан в текущем месяце,
-имеет расширение.

[phomm]

Судя по TMemo, надо сделать либо на дельфи, либо на с++билдере. Укажите точно, в чём именно.
Также стоит указать срок, коли срочно.

Ну и, конечно же, надо указать бюджет, т.к. эта галиматья не нужна никому, кроме Вас, и браться за неё люди будут только за деньги. Тему при этом перенесут в раздел фриланса, там Вам напишет несколько исполнителей, выберите понравившегося.

[challengerr]

1

#include <stdio.h>
#include <malloc.h>
#include <time.h>
#include <stdlib.h>
#include <math.h>

void main()
{
int n;
int m;

int** x;

int i;
int j;

int p;

int* x2;

int n1;

int k;

n = 5;
m = 10;

if (n%2 == 0)
{
n1 = n/2;
}
else
{
n1 = (n+1)/2;
}

printf("n1: %d\n", n1);

x2 = (int*) malloc(n1*sizeof(int));

srand(time(0));

x = (int**) malloc (n*sizeof(int*)); 

for(i=0;i<n;i++)
x[i] = (int*) malloc (m*sizeof(int));

for(i=0;i<n;i++)
for(j=0;j<m;j++)
x[i][j]=rand()%9;

for(i=0;i<n;i++)
{
for(j=0;j<m;j++)
printf("%d ", x[i][j]);
printf("\n");
}

for(k=0,i=0;i<n;i++)
{
 if (i%2 == 0)
 {
  for(p=1,j=0;j<m;j++)
  {
   if (j%2 == 0)
   {
    p *= x[i][j];
   }
  }
  x2[k] = p;
  k++;
 }
}

for(i=0;i<n1;i++)
printf("%d ", x2[i]);
printf("\n");

}

2

#include <stdio.h>
#include <malloc.h>
#include <time.h>
#include <stdlib.h>
#include <math.h>

void main()
{
int n;
float** x;
int i;
int j;
float s;
int sn;
n = 15;
srand(time(0));
x = (float**) malloc (n*sizeof(float*)); 
for(i=0;i<n;i++) x[i] = (float*) malloc (n*sizeof(float));
for(i=0;i<n;i++) for(j=0;j<n;j++) x[i][j]=rand()%9;
for(i=0;i<n;i++) { for(j=0;j<n;j++) printf("%.2f ", x[i][j]); printf("\n"); }
printf("\n");
for (j=0;j<n;j++)
{
 for(s = 0, sn = 0, i=j+1;i<n;i++)
 {
  if (x[i][j] > j)
  {
   s += x[i][j];
   sn++;
  }
 }
 s /= 2;
 for(i=j+1;i<n;i++)
 {
  x[i][j] = s;
 }
}

for(i=0;i<n;i++) { for(j=0;j<n;j++) printf("%.2f ", x[i][j]); printf("\n"); }


}

[HitKitProgValid]

На Delphi

[newerow1989]

1:

const n=10;
      m=6;
var i,j,l,pr:integer;
    x:array[1..n,1..m] of integer;
    a:array of integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to m do
      begin
         x[i,j]:=1+Random(20);
         Write(x[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   l:=0;
   For i:=1 to n do
      If i mod 2 = 0 then
      begin
         pr:=1;
         For j:=1 to m do
            If x[i,j] mod 2 = 0 then
               pr:=pr*x[i,j];
         l:=l+1;
         SetLength(a,l);
         a[l-1]:=pr;
      end;
   For i:=Low(a) to High(a) do
      Write(a[i],'  ');
   Writeln;
   Readln;
end.

2:

const n=6;
var i,j,k:integer;
    sr:real;
    x:array[1..n,1..n] of real;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         x[i,j]:=Random(10)+Random;
         Write(x[i,j]:2:5,'  ');
      end;
      Writeln;
   end;
   Writeln;
   k:=0;
   sr:=0;
   For i:=1 to n do
      For j:=1 to n do
         If x[i,j]<j then
         begin
            k:=k+1;
            sr:=sr+x[i,j];
         end;
   sr:=sr/k;
   For i:=1 to n do
      For j:=1 to i-1 do
         x[i,j]:=sr;
   For i:=1 to n do
   begin
      For j:=1 to n do
         Write(x[i,j]:2:5,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

Сойдет?