Помогите решить (Создать двумерный массив вещественных чисел ...)

[Rydon]

помогите решить плз,
Создайте двумерный массив вещественных чисел, имеющий 10 строк и 15 столбцов, выведите его на экран. Затем разделите каждый элемент массива на среднее арифметическое значение элементов строки, в которой они расположены, и результат выведите на экран.
с первой частью понятно, но со  средним арифм. не могу разобраться(

[Asix]

Не флудите в чужих темах!
Для своих вопрсов, создавайте свои топики!

[Данила]

а что непонятного? берете 1ую строку,складываете все элементы на 10 и делите все элементы строки на это число и так с каждой строкой

[Rydon]

напишите код пжл, чет запуталмя уже

[Asix]

Стремно писать за всех код.
Напишите хоть как-то осмысленный код, а Вам его будут уже помогать править =))
Самое главное идею Вам уже дали =))

[InfStudent]

Заведите переменную и используйте циклы для решения задачи

[Rydon]

Код: [Выделить]

program pr15;
uses crt;
var mas: array[1..10,1..15] of real;    a: array[1..10,1..15] of real;
k,i,j,n,m: integer; s: real;
begin
[b]clrscr;
randomize;
for i:=1 to 10 do
for j:=1 to 15 do
mas[i,j]:=random(100);
writeln;

for i:=1 to 10 do
begin
for j:=1 to 15 do
write(mas[i,j]:3:1,',',' ');
writeln;
end;
writeln;[/b]

m:=0;
k:=0;
for i:=1 to 10 do
begin
s:=0;
for j:=1 to 15 do
s:=s+mas[i,j];
s:=s/15;
k:=K+1;
m:=m+1;
a[k,m]:=s;
end;
writeln;

for i:=1 to k do
begin
for j:=1 to m do
write(a[i,j]:3:1,' ');
writeln;
end;

readln end.
ну вобщем где выделено там все понятно, но потом чет меня заносит куда-то

[Rydon]

фуф, вроде сам сообразил..

Код: [Выделить]

program pr15;
uses crt;
var mas: array[1..10,1..15] of real; i,j: integer; s: real;
begin
clrscr;
randomize;
for i:=1 to 10 do
for j:=1 to 15 do
mas[i,j]:=random(10);

for i:=1 to 10 do
begin
for j:=1 to 15 do
write(mas[i,j]:3:1, ' ');
writeln;
end;
writeln;

for i:=1 to 10 do
s:=0;
begin
for j:=1 to 15 do
s:=s+(mas[i,j]);
s:=s/15;
for i:=1 to 10 do
begin
for j:=1 to 15 do
begin
mas[i,j]:=mas[i,j]/s;
write(mas[i,j]:3:1, ' ');
end;
writeln;
end;
end;

readln;
end.