Найти среднее арифметическое в каждой строке марицы

[dvpvitas]

Здравствуйте! Помогите пожалуйста с задачей:Создать с помощью генератора случайных чисел двухмерный массив A и вывести его на экран. Далее найти среднее арифметическое в каждой строке матрицы в Паскале?.

[Stilet]

Твои попытки можно будет увидеть?

[Praud]

#include <iostream>
#include <ctime>
#include <conio.h>
#include <locale.h>
using namespace std;

int main()
{
	setlocale(LC_ALL, "Rus");

	srand(time(NULL)); // Функция для рандома
	const int N = 4; // Количество элементов в матрице
	int arr[N][N];
	float mid = 0; // Среднее арифметическое
	
	for (int i = 0; i < N; i++)
	for (int j = 0; j < N; j++)
		arr[i][j] = 0 + rand() % 10; // Заполняем матрицу 

	for (int i = 0; i < N; i++)
	{
		for (int j = 0; j < N; j++)
		{
			cout << arr[i][j] << " "; // Выводим матрицу
		}
		cout << endl;
	}

	cout << endl;

	for (int i = 0; i < N; i++)
	{
		for (int j = 0; j < N; j++)
			mid += arr[i][j]; // Считаем среднее арифметическое

		cout << i + 1 << ") строка - " << mid / N << endl; 
		mid = 0;
	}

	_getch();
		
}

Все понятно?

[dvpvitas]

program mas_dv;
uses crt;
TYPE MAS=array[1..10,1..10]of real;
Var A,B:MAS;
I,J,M,N,b1,a1,k,f:Integer;
sr:real;
begin
Clrscr;
write('Ввести кол.-во строк и столбцов(максимально 10):');
readln(m,n);
writeln;
writeln('Ввести диапазон значений:');
readln(a1,b1);
Randomize;
writeln;
For I:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=(B1-a1)*random+A1;
Write(A[i,j]:4:0,'  ');
end;
writeln;
end;
writeln;
For j:=1 to m do
For I:=1 to n do
begin
Sr:=sr+A[i,j];
k:=k+1;
sr:=sr/k;
end;
Writeln('Cреднее арифметическое Cтроки №',I:2,' =',Sr:2:0);
readln;
end.

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

[Stilet]

For j:=1 to m do begin Sr:=0;
 For I:=1 to n do Sr:=sr+A[i,j]; 
 Writeln('Cреднее арифметическое Cтроки №',I:2,' =',Sr/n:5:2);
end;
readln;

[dvpvitas]

может написать полностью код программы, не получается просто?

[Stilet]

Так он у тебя уже есть О_о
Просто вставь код в код.

[dvpvitas]

У меня не правильно считает

[Stilet]

Ну да. Я там не увидел как ты счетчики поставил. Ну понятное дело что ты не догадаешься их поменять, поэтому выкладываю поправку:

For i:=1 to m do begin Sr:=0;
 For j:=1 to n do Sr:=sr+A[i,j];
 Writeln('Cреднее арифметическое Cтроки №',I:2,' =',Sr/n:5:2);
end;

[dvpvitas]

Спасибо все работает