Обработка двумерных массивов (Dephi 7)

[Elec92]

Задание:

В матрице A(n x m) найти среднее арифметическое наименьших элементов каждого столбца

Помогите пожалуйста
сделать по простому(console application) что б решение выводило в командной строке...

program massiv;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var A,B,C:real;
begin
  ....
end.

ввод с клавиатуры

[Stilet]

Без проблем - показывай как вводишь массив.

[Elec92]

точно сказать не могу, но попробую

var
 Matrix: array[1..n, 1..m] of integer;
 i,j,max,smax: integer;

поможете/?

[Stilet]

поможете/?

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

[Elec92]

на подобие:

program Rabota619;

{$APPTYPE CONSOLE}

uses
SysUtils,
math;

Var

i,j,m,s,n,h,k,g:integer; //rabo4aya peremennaya
x:array [1..10,1..10] of integer; // Massiv 1
c:array[1..10] of integer;
d:array[1..10] of integer;

begin

writeln('V-te kol-vo n <=10');
readln(n);
writeln('V-te kol-vo m <=10');
readln(m);
writeln ('v-te massiv 1 ');
for i:=1 to n do
for j:=1 to m do
readln(x[i,j]);

for i:=1 to n do
for j:=1 to m do
begin
if x[i,j]<0 then begin
k:=k+1;
c[k]:=x[i,j];
end;
if x[i,j]<0 then begin
g:=g+1;
d[g]:=x[i,j];
end; end;
writeln('Kolichetvo jelementov menshe nulja v kazhdoj stroke massiva X');
for i:=1 to k do
write(c[i],' ');
writeln('Kolichetvo jelementov bolshe nulja v kazhdoj stroke massiva X');
for i:=1 to g do
write(d[i],' ');


Readln;
end.

[Mad_Cat]

s:=0;
for i:=1 to n do begin
m:=1;
for j:=2 to n do
if a[j,i]<a[m,i] then m:=j;
s:=s+a[m,i]; end;
s:=s/n;// среднее арифметическое

[Elec92]

ммм,
спасибо, но что то не могу закончить

как сделать вывод в конце

program Rabota619;

{$APPTYPE CONSOLE}

uses
SysUtils,
math;

Var

i,j,m,n,s:integer; //rabo4aya peremennaya
a:array [1..10,1..10] of integer; // Massiv 1

begin

writeln('V-te kol-vo n <=10');
readln(n);
writeln('V-te kol-vo m <=10');
readln(m);
writeln ('v-te massiv 1 ');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);

s:=0;
for i:=1 to n do begin
m:=1;
for j:=2 to n do
if a[j,i]<a[m,i] then m:=j;
s:=s+a[m,i]; end;
s:=s/n; // ñðåäíåå àðèôìåòè÷åñêîå
end; end;

Readln;
end.

[Mad_Cat]

s:real;

как сделать вывод в конце

writeln(s:6:3);