Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых отрицателен элемент главной диагонали.

@drave130 · Регистрация: 07.10.2012

Author24 — интернет-сервис помощи студентам

Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых отрицателен элемент главной диагонали.

дана квадратная матрица А размеров n

@КонецСвета · 08.10.2012, 19:49

Pascal

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of integer;
    n,i,j: byte;
    sar,sum: integer;
    
begin
repeat
write('размерность матрицы, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
write('   Матрица');
for i:=1 to (n*4)-5 do
    write(' ');
writeln('Сумма');
for i:=1 to n do
    begin
    sum:=0;
    for j:=1 to n do
        begin
        a[i,j]:=random(199)-99;
        write(a[i,j]:4);
        inc(sar,a[i,j]);
        inc(sum,a[i,j]);
        end;
    if a[i,i]<0 then writeln(sum:10) else writeln;
    end;
writeln('Среднее арифметическое=',sar/(n*n):0:2);
readln;
end.

@drave130 0 / 0 / 0 Регистрация: 07.10.2012 Сообщений: 16
		1
	Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых отрицателен элемент главной диагонали. 07.10.2012, 16:56. Показов 3790. Ответов 1 Метки нет (Все метки) Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых отрицателен элемент главной диагонали. дана квадратная матрица А размеров n 0

	08.10.2012, 19:49

Опции темы

Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых отрицателен элемент главной диагонали.

Решение