Найти сумму элементов строк матрицы [A], размером NxM. Вывести на печать исходную матрицу и сумму строк.

@ToBe · Регистрация: 12.05.2010

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

@Demon-red · 14.05.2010, 12:45

Pascal

uses crt;
const t=10;
 var b:array[1..t,1..t] of integer;
     a:array[1..t] of integer;
  j,i,n,s:integer;
   begin
  clrscr;
  randomize;
 write('Введите количество элементов массива*: ');
 readln(n);
 for i:=1 to n do
 for j:=1 to n do
  begin
   b[i,j]:=random(10);
   end;
  begin
   writeln('полученный массив: ');
   begin
    for i:=1 to n do
    begin
   for j:=1 to n do
   begin
   write(b[i,j]:4);
   end;
   writeln;
         end;
      end;
     end;
     begin
  s:=0;
     for i:=1 to n do
     begin
        s:=b[i,1];
           for j:=2 to n do
            s:=s+b[i,j];
          a[i]:=s;
          end;
       writeln('Сумма элементов строк: ');
      for i:=1 to n do
           write(a[i]:4);
        end;
        readkey;
        end.

@ToBe 0 / 0 / 0 Регистрация: 12.05.2010 Сообщений: 15
		1
	Найти сумму элементов строк матрицы [A], размером NxM. Вывести на печать исходную матрицу и сумму строк. 14.05.2010, 12:34. Показов 1622. Ответов 1 Метки нет (Все метки) Найти сумму элементов строк матрицы [A], размером NxM. Вывести на печать исходную матрицу и сумму строк. 0

Опции темы

Найти сумму элементов строк матрицы [A], размером NxM. Вывести на печать исходную матрицу и сумму строк.

Решение