Вычислить: вектор, каждый элемент которого является суммой элементов соответствующего столбца.

@Kvisin · Регистрация: 18.12.2016

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

В задаваемой вещественной матрице вычислить: вектор, каждый элемент которого является суммой элементов соответствующего столбца.

@Hitoku · 03.03.2017, 02:45

Pascal

var
a:array[1..100,1..100] of real;
b:array[1..100] of real;
n,m,i,j:integer;
begin
  writeln('Задайте количество строк и столбцов:');
  readln(n); readln(m);
  writeln('Введите элементы матрицы:');
  for i:=1 to n do
    for j:=1 to m do
      readln(a[i,j]);
  writeln('Исходная матрица:');
  for i:=1 to n do begin
    for j:=1 to m do
      write(a[i,j],' ');
    writeln;
  end;
  writeln('Полученный вектор:');
  for j:=1 to m do begin
    for i:=1 to n do
      b[j]:=b[j]+a[i,j];
    write(b[j],' ');
  end;
end.

@bormant · 03.03.2017, 08:35

Hitoku,
Зачем заставлять принудительно жать Ввод после каждого числа, почему не разрешить вводить хоть так, хоть через пробел?лучше

Pascal

7	ReadLn(n,m); или Read(n,m);

и тем более:

Pascal

  for i:=1 to n do
    for j:=1 to m do
      Read(a[i,j]);
  ReadLn;

Добавлено через 3 минуты
Ведь ReadLn после того, как прочтёт свои аргументы, всё, что осталось в текущей строке, просто выбросит.

@Kvisin 0 / 0 / 0 Регистрация: 18.12.2016 Сообщений: 12
		1
	Вычислить: вектор, каждый элемент которого является суммой элементов соответствующего столбца. 02.03.2017, 20:49. Показов 1521. Ответов 2 Метки двумерный массив (Все метки) В задаваемой вещественной матрице вычислить: вектор, каждый элемент которого является суммой элементов соответствующего столбца. 0

	03.03.2017, 08:35

Вычислить: вектор, каждый элемент которого является суммой элементов соответствующего столбца.

Решение