Найти сумму по строкам матрицы, среднее арифметическое по столбцам

@ЗлойТапок · Регистрация: 18.11.2011

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

Помогите пожалуйста с задачей:

ВВести массив А(m на n).
Найти сумму по строкам, средне-арифметическое по столбцам,
произведение главной диагонали и сумму элементов от 2 до 5

Заранее спасибо.

@КонецСвета · 09.12.2011, 20:57

Сообщение от ЗлойТапок

сумму элементов от 2 до 5

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

Pascal

uses crt;
var a: array [1..100,1..100] of integer;
    sumi,sumj: array [1..100] of integer;
    i,j,m,n,sum,p: integer;
begin
writeln('n,m=');
readln(n,m);
writeln('Исходная матрица');
p:=1;
for i:=1 to n do
    begin
    sum:=0;
    for j:=1 to m do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:5);
        inc(sum,a[i,j]);
        if i=j then p:=p*a[i,j];
        end;
    writeln;
    sumi[i]:=sum;
    end;
for j:=1 to m do
    begin
    sum:=0;
        for i:=1 to n do
        inc(sum,a[i,j]);
    sumj[j]:=sum;
    end;
writeln('Сумма строк ');
for i:=1 to n do
    write(sumi[i]:5);
writeln;
writeln('Ср.ар. столбцов');
for j:=1 to m do
    write(sumj[j]/n:5:1);
writeln;
writeln('Произведение главной диагонали ',p);
end.

@ЗлойТапок · 09.12.2011, 21:55 **[ТС]**

спасибо огромное...
P.S. от 2 до 5 имеется в виду интервал,т.е. сумма всех элементов, входящих в интервал от 2 до 5
P.P.S. а можно сделать без Random? просто это еще не проходили, поэтому не очень понятно, как работает оператор... я так понял, что он создает матрицу из random'ых эл-тов?

@КонецСвета · 09.12.2011, 22:33

да, random - генератор случайных чисел, вот без него

Pascal

uses crt;
var a: array [1..100,1..100] of integer;
    sumi,sumj: array [1..100] of integer;
    i,j,m,n,sum,p,sumd: integer;
begin
writeln('n,m=');
readln(n,m);
for i:=1 to n do
    for j:=1 to m do
        begin
        write('a[',i,',',j,']=');
        readln(a[i,j]);
        end;
writeln('Исходная матрица');
p:=1;
for i:=1 to n do
    begin
    sum:=0;
    for j:=1 to m do
        begin
        write(a[i,j]:5);
        inc(sum,a[i,j]);
        if i=j then p:=p*a[i,j];
        if (a[i,j]>=2) and (a[i,j]<=5)
           then inc(sumd,a[i,j]);
        end;
    writeln;
    sumi[i]:=sum;
    end;
for j:=1 to m do
    begin
    sum:=0;
        for i:=1 to n do
        inc(sum,a[i,j]);
    sumj[j]:=sum;
    end;
writeln('Сумма строк ');
for i:=1 to n do
    write(sumi[i]:5);
writeln;
writeln('Ср.ар. столбцов');
for j:=1 to m do
    write(sumj[j]/n:5:1);
writeln;
writeln('Произведение главной диагонали ',p);
writeln('Сумма в диапазоне [2;5] = ',sumd);
end.

P.S. Может, и выражение inc(sumd,a[i,j]) заменить на sumd:=sumd+1?

@ЗлойТапок · 09.12.2011, 22:43 **[ТС]**

P.S. Может, и выражение inc(sumd,a[i,j]) заменить на sumd:=sumd+1?

Было бы не плохо)

@КонецСвета · 09.12.2011, 22:51

Pascal

uses crt;
var a: array [1..100,1..100] of integer;
    sumi,sumj: array [1..100] of integer;
    i,j,m,n,sum,p,sumd: integer;
begin
writeln('n,m=');
readln(n,m);
for i:=1 to n do
    for j:=1 to m do
        begin
        write('a[',i,',',j,']=');
        readln(a[i,j]);
        end;
writeln('Исходная матрица');
p:=1; sumd:=0;
for i:=1 to n do
    begin
    sum:=0;
    for j:=1 to m do
        begin
        write(a[i,j]:5);
        sum:=sum+a[i,j];
        if i=j then p:=p*a[i,j];
        if (a[i,j]>=2) and (a[i,j]<=5)
           then sumd:=sumd+a[i,j];
        end;
    writeln;
    sumi[i]:=sum;
    end;
for j:=1 to m do
    begin
    sum:=0;
        for i:=1 to n do
        sum:=sum+a[i,j];
    sumj[j]:=sum;
    end;
writeln('Сумма строк ');
for i:=1 to n do
    write(sumi[i]:5);
writeln;
writeln('Ср.ар. столбцов');
for j:=1 to m do
    write(sumj[j]/n:5:1);
writeln;
writeln('Произведение главной диагонали ',p);
writeln('Сумма в диапазоне [2;5] = ',sumd);
end.

@ЗлойТапок · 09.12.2011, 22:52 **[ТС]**

спасибо огромное) выручил, прям перед зачетом))

Найти сумму по строкам матрицы, среднее арифметическое по столбцам

Решение

Решение

@ЗлойТапок 1 / 1 / 1 Регистрация: 18.11.2011 Сообщений: 25
		1
	Найти сумму по строкам матрицы, среднее арифметическое по столбцам 09.12.2011, 16:45. Показов 1380. Ответов 6 Метки нет (Все метки) Помогите пожалуйста с задачей: ВВести массив А(m на n). Найти сумму по строкам, средне-арифметическое по столбцам, произведение главной диагонали и сумму элементов от 2 до 5 Заранее спасибо. 0

@ЗлойТапок 1 / 1 / 1 Регистрация: 18.11.2011 Сообщений: 25
	09.12.2011, 21:55 [ТС]	3
	спасибо огромное... P.S. от 2 до 5 имеется в виду интервал,т.е. сумма всех элементов, входящих в интервал от 2 до 5 P.P.S. а можно сделать без Random? просто это еще не проходили, поэтому не очень понятно, как работает оператор... я так понял, что он создает матрицу из random'ых эл-тов? 0

@ЗлойТапок 1 / 1 / 1 Регистрация: 18.11.2011 Сообщений: 25
	09.12.2011, 22:43 [ТС]	5
	P.S. Может, и выражение inc(sumd,a[i,j]) заменить на sumd:=sumd+1? Было бы не плохо) 0

@ЗлойТапок 1 / 1 / 1 Регистрация: 18.11.2011 Сообщений: 25
	09.12.2011, 22:52 [ТС]	7
	спасибо огромное) выручил, прям перед зачетом)) 0

Опции темы