Прошу помочь реализовать программу

[xzibit777999]

Выполнить программу на любом из предложенных языков программирования: Си, С++, С#, Java, Паскаль, Делфи.

1) В двумерном массиве случайных чисел (М строк. N столбцов) определить номера столбцов, среднее арифметическое элементов которых меньше среднего арифметического элементов во всём массиве.

2) Описать структуру с именем ORDER, содержащую следующие поля:
- Расчётный счёт плательщика;
- Расчётный счёт получателя;
- перечисляемая сумма в руб.
Написать программу, выполняющую следующие действия (действия оформить в виде подпрограмм):
- Ввод с клавиатуры данных в массив, состоящий из 8 элементов типа ORDER; записи должны быть размещены в алфавитном порядке по расчётным счетам плательщиков;
- Вывод на экран информации о сумме, снятой с расчётного счёта плательщика, введенного с клавиатуры;
- Если такого расчётного счета нет, выдать на экран соответствующие сообщение.

[Tiva]

такую тему закроют. выложи сперва то, что сделал сам. делать за тебя навряд ли кто-то будет.

[astecenko]

Почему же, вполне возможно что будут только возмездно, обращайтесь в раздел Фриланс.

Так же рекомендую к обязательному прочтению правила раздела

[Tiva]

ну тогда могу и я пофрилансить за вебмани ))) задания пустяковые

[Rififi]

xzibit777999

2) Описать структуру с именем ORDER, содержащую следующие поля:

Это заготовка для C#, полностью делть влом...

class Order
{
	public string buyer;
	public string receiver;
	public double quantity;
}

var orders = new List<Order>();

for (var i = 0; i < 8; i++)
{
	var ord = new Order();
	// заполнить данными
	orders.Add(ord);
}

orders.Sort((a, b) => a.buyer.CompareTo(b.buyer));

var buyer = Console.ReadLine();
var found = orders.Find(p => p.buyer == buyer);
if (found == null)
	Console.WriteLine("Плательщика отсутствует, насяльника!");
else
{
	Console.WriteLine(found.quantity);
}

[xzibit777999]

вот 2 задача в чём тут проблема кто скжет?

#include <cstdlib>
#include <ctime>
#include <iostream>
#include <iomanip>
#include <algorithm>
#include <string>


struct Order {
std::string debet;
std::string credit;
float sum;
};

std:stream &operator<<(std:stream &stream, const Order &order) {
std::cout << "From: " << order.debet << std::endl
<< "To: " << order.credit << std::endl
<< "Sum: " << std::setprecision(2) << std::fixed << order.sum
<< " rub." << std::endl;
return stream;
}

Order RandomOrder() {
Order result;
for (int i = 0; i < 20; ++i) {
result.debet += rand() % 10 + '0';
result.credit += rand() % 10 + '0';
}
result.sum = (rand() % 100000) / 100.0;
return result;
}

bool OrderByDebet(const Order &a, const Order &b) {
return (a.debet < b.debet);
}

Order *FindFirstByDebet(Order *begin, Order *end,
const std::string &debet) {
for (Order *result = begin; result != end; ++result)
if (result->debet == debet)
return result;
return NULL;
}

float AccumulateSumByDebet(Order *begin, Order *end,
const std::string &debet) {
float result = 0;
for (Order *current = begin; current != end; ++current)
if (current->debet == debet)
result += current->sum;
return result;
}

int main(int argc, char *argv[]) {
srand(time(NULL));
Order orders[8];
for (int i = 0; i < 8; ++i)
orders[i] = RandomOrder();
std::sort(orders, orders+8, OrderByDebet);
for (int i = 0; i < 8; ++i)
std::cout << "#" << i << " " << orders[i] << std::endl;

std::string debet = orders[rand() % 8].debet;
// вместо предыдущей строки ввод:
// std::string debet;
// std::cout << "Enter debetor: ";
// std::cin >> debet;

std::cout << "Search for debet: " << debet << std::endl;

Order *order = FindFirstByDebet(orders, orders+8, debet);
if (order != NULL) {
float result = AccumulateSumByDebet(orders, orders+8, debet);
std::cout << "Debetor " << debet
<< " spent " << result << " rub." << std::endl;
} else {
std::cout << "No such debetor." << std::endl;
}
return 0;
}

[xzibit777999]

вот 1 задача прошу проверить правильность потому что нет возможности проверить.

type
    TMatrix=Array of array of Real;
    TVector=Array of Real;
 
function SrednneVsegoMassiva(a:TMatrix):Real;
var
    x,y:Integer;
begin
    Result:=0;
    for x := 0 to Length(a)-1 do
        for y := 0 to Length(a[0]) do
            Result:=Result+a[x,y];
    Result:=Result/(Length(a)*Length(a[0]));
end;
 
function SrednyaStolbca(a:TVector):Real;
var
    x:Integer;
begin
    Result:=0;
    for x:= 0 to Length(a)-1 do
        Result:=Result+a[x];
    Result:=Result/Length(a);
end;
 
procedure Vopros1(a:TMatrix);
var
    c:Real;
    x:Integer;
begin
    c:=SrednneVsegoMassiva(a):Real;
    for x := 0 to Length(a)-1 do
        if SrednyaStolbca(a[x])<c then
            //тут выводим x-номер столбца, куда захочешь
end;