Разработать программу сложения и вычитания двух матриц

@Brutix · Регистрация: 08.06.2013

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

Даны натуральные числа n, m и две матрицы разрядности nхm целочисленных элементов, где n,m≤10. Разработать программу сложения и вычитания двух матриц.

Помогите очень прошу!

@CodeR · 09.06.2013, 11:19

Pascal

Var A,B:array[1..10,1..10] of integer; 
    i,j,n,m:byte;
Begin
    write('Введите n,m<=10: ');readln(n,m);
    writeln('Матрица A');
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    writeln('Матрица B');
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        B[i,j]:=random(31)-15;
        write(B[i,j]:4);
      End;
      writeln;
    End;
    writeln('A+B');
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]+B[i,j]:4);
      writeln;
    End;
    writeln('A-B');
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]-B[i,j]:4);
      writeln;
    End;
    readln;
End.

@Brutix 0 / 0 / 0 Регистрация: 08.06.2013 Сообщений: 2
		1
	Разработать программу сложения и вычитания двух матриц 08.06.2013, 20:34. Показов 2331. Ответов 1 Метки нет (Все метки) Даны натуральные числа n, m и две матрицы разрядности nхm целочисленных элементов, где n,m≤10. Разработать программу сложения и вычитания двух матриц. Помогите очень прошу! 0

	09.06.2013, 11:19

Разработать программу сложения и вычитания двух матриц

Решение