Создание Матрицы, Создание произвольной матрицы Опции

[Atreides]

Возник один вопросик: нужно сделать матрицу и посчитать в ней сумму элементов каждой строки, разделить сумму этой строки на количество элементов этой строки. Но размерность матрицы должна задаваться вручную, причем произвольно, вот как взбредет в голову, так и сделать, т.е. 2х2 или 3х10, а может и 10х3 и т.д..

[Atreides]

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

Код

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
matrica=array[1..15,1..15] of real;
var
max:real;
nmax:byte;
p:array [1..15] of byte;
a:matrica;
i,j,n,m:integer;
s:real;

begin
writeln;
write('Vvedi kol-vo strok n & stolbchov m ');
readln(n,m);
for i:=1 to n do
for j:=1 to m do
begin
write ('a[',i,',',j,']=');
readln (a[i,j]);
end;
writeln;
writeln ('Base matrix');
for i:=1 to n do
begin
for j:=1 to m do
write (a[i,j]:8:1,' ');
writeln;
readln;
end;

//Ñóììà ýëåìåíòîâ ñòðîêè
begin
s:=0;
for j:=1 to m do
s:=s+a[i,j];  //ñóììà ýë-òîâ ñòðîêè
end;
readln;
end;


end.

Сообщение отредактировано: Atreides - 6.05.2007 19:23