Дана матрица 5*7.Элементы матрицы целые случайные числа в промежутке [-18;+48].Вывести матрицу

Дана матрица 5*7.Элементы матрицы целые случайные числа в промежутке [-18;+48].Вывести матрицу и найти: 1)разность меж средним арифметическим положительных частей матрица и средним арифметическим отрицательных частей матрицы;

Задать свой вопрос
1 ответ
//PascalABC.Net 3.2
begin
var a: array of array of integer;
var n:=readinteger('Строк матрицы: ');
var m:=readinteger('Столбцов матрицы: ');
setLength (a, n);
for var i:=0 to length(a)-1 do a[i]:=arrRandom (m, -18, 48);
var sumP:=0; var sumO:=0; var kolO:=0;
for var i:=0 to n-1 do for var j:=0 to m-1 do
if a[i][j]lt;0 then begin
sumO+=a[i][j];
kolO+=1;
end else sumP+=a[i][j];
writeln ('Разница: ', sumP/(m*n-kolO)-sumO/kolO);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт