очень нужна помощь,помогите пожалуйста

[X3m41k]

Тема Многовымерные масивы
Розмер масива [A 4 х 3]
Тип елемента Integer
В матрице найти среднее арифметичное елементов каждого столбца.
___________________________________ ____________
и еще одно задание
_____________________
Тема Процедуры и Функции

Вычеслить значение

max(min(a,b,c)b,c^2)
t= ___________________ +max(a^2, b; c^2-b)
max(a,b,c^2)

lfyyst
a=0,28
b=2,35
c=-3,51
___________________________________ ____________________________
___________________________________ ____________________________
токо просьба сделать всё приметивно, на базе 1го курса), к примеру:
________________
длина масива 11
тип елемента масива char
в масиве найти сумму индексов минимаьного и максимаотного елементов)

procedure TForm1.Button1Click(Sender: TObject);
const n=11;
var a:array [1..n] of char;
min,max:char;
x,i,nmax,nmin:integer;
begin
for i:=1 to n do
a[i]:=StringGrid1.Cells[i-1,0][1];
nMax := -1;
nMin := -1;
for i := 1 to n do
begin
if (a[i] < min) or (nMin = -1) then
begin
min  := a[i];
nmin:= i;
end;
 if (a[i] > max) or (nMax = -1) then
begin
max:= a[i];
nMax:= i;
end;
end;
x := nmax + nmin;
Memo1.Lines.Add('x='+FloatToStr(x));
end;

end;
end.

___________________________________ ______________________________
___________________________________ ______________________________

Заранье спасибо огромное !!!
если что пишите в аську 490574588

[X3m41k]

помогите пожалуйста %) , хотябы
Тема Многовымерные масивы
Розмер масива [A 4 х 3]
Тип елемента Integer
В матрице найти среднее арифметичное елементов каждого столбца.

[Stilet]

Тема Процедуры и Функции

Подсказываю: Функцию МАксимума минимума можно сделать примерно так

const a=0.28;b=2.35;c=-3.51;
var t:Double;
function max(a:array of Double):Double;
var i:integer;
begin
 //********* FOR ******************
 for i :=low(a)  to high(a)  do
 begin
   if a[i]>result then result:=a[i];
 end;
 //******* END FOR ****************{}
end;
begin
t:=(max([max([a,b,c]),b,c*2]));
caption:=FloatToStr(t);
end;

Смекаешь?

[puporev]

К задаче 1.
Создаешь матрицу.
Алгоритм определения среднего в столбцах:

for j:=1 to m do//столбцы
    begin
       sr:=0; //обнуляем среднее
       for i:=1 to n do //по строкам в столбце
          begin
            sr:=sr+a[i,j];//суммируем
          end;
       sr:=sr/n;//делим на количество строк
       Memo1.Lines.Add('В столбце'+inttostr(j)+'среднее='+floattostr(sr);
    end;//сделаешь форматированный вывод вещественного числа.
readln
end.

Сумма максимального и минимального.

nMax :=1; max:=a[1];
nMin :=1;min:=a[1];
for i := 1 to n do
    begin
      if a[i] < min then
        begin
         min  := a[i];
         nmin:= i;
       end
     else  if a[i] > max then
       begin
         max:= a[i];
         nMax:= i;
       end;
   end;
x := nmax + nmin;

[X3m41k]

А кто-то может 1е задание....поподробней описать...стукните в аську плиз 490574588

[puporev]

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

[X3m41k]

О спасибо,а можешь 2е задание так-же залить..плизз!!!!!!