Дана действительная матрица . Получить действительную матрицу, элемент которой равен сумме элементов данной матрицы

@CyberSosed · Регистрация: 30.11.2017

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

см. вложения полную задачу

@Puporev · 25.04.2018, 10:24

Pascal

var a,b:array[1..10,1..10] of real;
    n:integer;
begin
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
randomize;
writeln('Матрица А');
for var i:=1 to n do
 begin
  for var j:=1 to n do
   begin
    a[i,j]:=3*random;
    write(a[i,j]:7:2);
   end;
  writeln;
 end;
writeln('Матрица В');
for var i:=1 to n do
 begin
  for var j:=1 to n do
   begin
    b[i,j]:=0;
    for var ii:=i to n do
    for var jj:=1 to j do
    b[i,j]:=b[i,j]+a[ii,jj];
    write(b[i,j]:7:2);
   end;
  writeln;
 end;
end.

@CyberSosed 0 / 0 / 0 Регистрация: 30.11.2017 Сообщений: 27
		1
	Дана действительная матрица . Получить действительную матрицу, элемент которой равен сумме элементов данной матрицы 24.04.2018, 20:08. Показов 3242. Ответов 1 Метки нет (Все метки) см. вложения полную задачу Миниатюры 0

Опции темы

Дана действительная матрица . Получить действительную матрицу, элемент которой равен сумме элементов данной матрицы

Решение