Вычислить суммы по строкам и произведение по столбцам матрицы

@alex 12 · Регистрация: 21.01.2014

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

Дан произвольный двухмерный числовой массив. Разработать проект позволяющий:
а) заполнять массив данными с сохранением в файле;
б) вычислять суммы по строкам и произведения по столбцам;
в) выдать результаты на экран.

@code-n'-help · 17.02.2014, 17:46

Попробуй так как я за условием понял это типо такого но я не проверял

Pascal

var A:array [1..100,1..100] of word; Resmas:array [1..2,1..100] or longword; sum,mnoz:longword; i,j:word; f:text;
begin
assign(f,'inp.txt');
rewrite(f);
read(n,m);
for i:=1 to n do
begin
writeln(f);
  for j:=1 to m do 
  begin 
    read(A[i,j]);
    write(f,A[i,j],' ');
end;
for i:=1 to n do
begin
sum:=0;
  for j:=1 to m do
  Sum:=sum+A[i,j];
Resmas[1,i]:=sum;
end;
for i:=1 to n do
begin
mnoz:=1;
  for j:=1 to m do
  mnoz:=mnoz*A[j,i];
Resmas[2,i]:=mnoz;
end;
for i:=1 to n do
write(Dopmas[1,i]);
for j:=1 no m do
write(Dopmas[2,j]);
end.

@alex 12 · 25.02.2014, 09:01 **[ТС]**

здесь что то не верно ошибку выдает

@alex 12 0 / 0 / 0 Регистрация: 21.01.2014 Сообщений: 15
		1
	Вычислить суммы по строкам и произведение по столбцам матрицы 16.02.2014, 21:58. Показов 1302. Ответов 2 Метки нет (Все метки) Дан произвольный двухмерный числовой массив. Разработать проект позволяющий: а) заполнять массив данными с сохранением в файле; б) вычислять суммы по строкам и произведения по столбцам; в) выдать результаты на экран. 0

@alex 12 0 / 0 / 0 Регистрация: 21.01.2014 Сообщений: 15
	25.02.2014, 09:01 [ТС]	3
	здесь что то не верно ошибку выдает 0

Опции темы

Вычислить суммы по строкам и произведение по столбцам матрицы

Решение