Составить программу, формирующую одномерный массив, каждый элемент которого равен сумме соответствующей строки

@Tormentor · Регистрация: 05.12.2014

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

Здравствуйте! Нужна помощь программистов в решении задачи. Нужно составить программу, генерирующую одномерный массив, каждый элемент которого равен сумме соответствующей строки двумерного массива А(N,N).

@Puporev · 30.05.2015, 10:45

Pascal

const max=15;
var a:array[1..max,1..max] of real;
    b:array[1..max] of real;
    n,i,j:integer;
begin
randomize;
repeat
write('Введите размер матрицы от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Исходная матрица A');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:5:1);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  b[i]:=0;
  for j:=1 to n do
  b[i]:=b[i]+a[i,j];
 end;
writeln('Массив В');
for i:=1 to n do
write(b[i]:5:1);
end.

@Tormentor 1 / 1 / 0 Регистрация: 05.12.2014 Сообщений: 50
		1
	Составить программу, формирующую одномерный массив, каждый элемент которого равен сумме соответствующей строки 30.05.2015, 09:56. Показов 1859. Ответов 1 Метки нет (Все метки) Здравствуйте! Нужна помощь программистов в решении задачи. Нужно составить программу, генерирующую одномерный массив, каждый элемент которого равен сумме соответствующей строки двумерного массива А(N,N). 0

	30.05.2015, 10:45

Опции темы

Составить программу, формирующую одномерный массив, каждый элемент которого равен сумме соответствующей строки

Решение