Помогите составить программу с параметрами в Паскале

[Ktimo]

Дана матрица А(6,6). Определить в каждом из ее столбцов значения их средних арифметических, образовав из полученных значений массив SR. Вывести исходную матрицу А, а под ней полученный массив SR.

[Serge_Bliznykov]

Чем помочь?
и что подразумевается под "программа с параметрами" ? Какие параметры нужны?

[newerow1989]

var a:array[1..6,1..6] of integer;
    sr:array[1..6] of real;
    i,j:integer;
begin
   Randomize;
   For i:=1 to 6 do
   begin
      For j:=1 to 6 do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to 6 do
   begin
      sr[j]:=0;
      For i:=1 to 6 do
         sr[j]:=sr[j]+a[i,j];
      sr[j]:=sr[j]/6;
      Write(sr[j]:3:3,'  ');
   end;
   Writeln;
   Readln;
end.

[Serge_Bliznykov]

newerow1989, извините, как я понял, ТС нужна программа с параметрами, подскажите, пожалуйста, а где в вашем решении параметры?

[newerow1989]

Возможно, так:

var a:array[1..6,1..6] of integer;
    sr:array[1..6] of real;
    i,j:integer;

function ppp(j:integer):real;
var i:integer;
begin
   Result:=0;
   For i:=1 to 6 do
      Result:=Result+a[i,j];
   Result:=Result/6;
end;

begin
   Randomize;
   For i:=1 to 6 do
   begin
      For j:=1 to 6 do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to 6 do
   begin
      sr[j]:=ppp(j);
      Write(sr[j]:3:3,'  ');
   end;
   Writeln;
   Readln;
end.

[Serge_Bliznykov]

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

Возможно, так:

возможно

[Аватар]

Помогите составить программу с параметрами в Паскале

Если быть противным и следовать логике ТС, то нужно программе передать несколько внешних параметров. Нет же в заголовке процедуры или функции с параметрами, или цикла с параметрами. Вот ))

[digitalis]

Был бы я телепатом, решил бы, что ему параметры нужны из командной строки. 1 - "щаз сделаем!", 0 - "а мож ну его на фиг?!"