Сформировать двумерный массив

[Fractal90]

Сформировать двумерный массив А размером 6*8 с помощью генератора случайных чисел и вывести элементы массива на экран. Найти средние значения элементов каждой строки матрицы и записать их в одномерный массив В. Вывести элементы массива В на экран.

вот это я еще могу сделать - Сформировать двумерный массив А размером 6*8 с помощью генератора случайных чисел и вывести элементы массива на экран.

а дальше как то не могу понять

[min@y™]

Пора нанимать нового форумного телепата по угадыванию языков программирования.

[Fractal90]

сори, Pascal

[Serge_Bliznykov]

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

вот это я еще могу сделать - Сформировать двумерный массив А размером 6*8 с помощью генератора случайных чисел и вывести элементы массива на экран.

делайте. Показывайте код. будет повод для дальнейшего разговора.

[Fractal90]

хорошо сейчас наберу

[min@y™]

Прошёлся поиском у себя по папке "Delphi projects". Наковырял тебе примеров. Будешь посмотреть?

[Scorpius]

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

Найти средние значения элементов каждой строки матрицы и записать их в одномерный массив В. Вывести элементы массива В на экран.

Приблизительная структура кода:

for i:=1 to n do
begin
    B[i] = 0;
    for j:=1 to m do
    begin
        B[i] = B[i] + A[i,j];
    end;
    B[i] = B[i]/m;
    write(B[i]:5:3);
end;

[Fractal90]

const n=6;m=8;
var
a:array [1..n,1..m] of integer;
i,j:integer;
begin
randomize;
write('массив:');
writeln;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random (50);
for i:=1 to n do
begin
 for j:=1 to m do
 write (a[i,j]:5);
 writeln;
end;
end.

вот сформировал, заполнил рандомно и вывел, верно?

[Fractal90]

что то какая то фигня(((

const n=6;m=8;
var
A:array [1..n,1..m] of integer;
B: array [1..M] of real;
i,j:integer;
begin
randomize;
write('массив:');
writeln;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random (50);
for i:=1 to n do
begin
 for j:=1 to m do
 write (a[i,j]:5);
 writeln;
end;
for i:=1 to n do
begin
    B[i]:=0;
    for j:=1 to m do
    begin
        B[i]:= B[i] + A[i,j];
    end;
    B[i]:= B[i]/m;
    write(B[i]:5:3);
end;
end.

[Fractal90]

с кашей разобрался, повыделял и все норм стало

а как теперь сделать чтобы писалось что первая строка массива B = среднее, далее вторая и т.д

const n=6;m=8;
var
    A:array [1..n,1..m] of integer;
    B: array [1..M] of real;
    i,j:integer;
begin
    randomize;
    write('Массив A:');
    writeln;
    writeln;
    for i:=1 to n do
    for j:=1 to m do
     a[i,j]:=random (50);
    for i:=1 to n do
begin
    for j:=1 to m do
    write (a[i,j]:5);
    writeln;
    writeln;
end;
    write('Массив B:');
    writeln;
    writeln;
for i:=1 to n do
begin
    B[i]:=0;
    for j:=1 to m do
begin
    B[i]:= B[i] + A[i,j];
end;
    B[i]:= B[i]/m;
    write(B[i]:10:2);
end;
end.