[xzibit777999]

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

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

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

[Lost_Fish]

Ответ на первый вопрос

Код:

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;

конструктор собери сам)

код не проверял, может содержать ошибки

[RusMaXXX]

xzibit777999, вам сюда Работа: предложения и спрос

[poli-smen]

Сообщение от RusMaXXX

xzibit777999, вам сюда Работа: предложения и спрос

Или сюда: Код на шару!

[xzibit777999]

Спасибо хоть на этом, 2 задачу может ктонить разобрать?)

[Lost_Fish]

Сообщение от xzibit777999

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

это твоя структура

Код:

type
    TOrder=record
        RSIn,RSOut:WideString;//счет для входящих платежей,счёт для исходящих
        Cash:Real;
    end;
    TOrderArray=array [1..8] of TOrder;

процедура отображения бабла из массива где расчётный счйт вводиться с клавиатуры

Код:

procedure ShowMeMoney(InPutRS:WideString;OrderArray:TOrderArray);
var
    x:Integer;
    b:boolean;
begin
    b:=False;
    for x:=1 to 8 do
        if OrderArray[x].RSOut=InPutRS then 
        begin
            //выводим на экран OrderArray[x].Cash
            b:=True;
        end;
    if not b then
        //Выводим сообщение о том чтонет такого счёта
end;

вывод,ввод с клавиатуры и сборку давай сам

тут ещё сортировки не хватает, времени нет на работе

[xzibit777999]

Lost_Fish, а сможешь полностью реализовать программу просто нет возможности проверить доработать её, если не трудно...