Поэлементно вычесть последнюю строку из всех строк, кроме последней

@h4ck · Регистрация: 05.11.2011

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

Дана прямоугольная матрица размером N×M. Составить программу, которая преобразует матрицу следующим образом:поэлементно вычитает последнюю строку из всех строк, кроме последней.

@SuPeR XaKer · 05.11.2011, 18:55

Что сами сделали?

@h4ck · 05.11.2011, 19:24 **[ТС]**

Я сделал ее так но не уверен что правильно

Pascal

CLS
 INPUT "Vvedite kol-vo strok    : ", N
 INPUT "Vvedite kol-vo stolbcov : ", M
 Dim A(M, N)
 
  
   For iy = 1 To N
      For ix = 1 To M
        A(ix, iy) = RND * 89 + 10
        PRINT Using "##.##  "; A(ix, iy);
      Next: PRINT
   Next: PRINT
 
   For iy = 1 To N - 1
      For ix = 1 To M
         A(ix, iy) = A(ix, iy) - A(ix, N)
      Next
   Next
 
   For iy = 1 To N
      For ix = 1 To M
        PRINT Using "###.##  "; A(ix, iy);
      Next: PRINT
   Next
End

@SuPeR XaKer · 05.11.2011, 19:25

Не по теме:

эт вроди бейсик а не паскаль.:D

@h4ck 0 / 0 / 0 Регистрация: 05.11.2011 Сообщений: 25
		1
	Поэлементно вычесть последнюю строку из всех строк, кроме последней 05.11.2011, 18:41. Показов 920. Ответов 3 Метки нет (Все метки) Дана прямоугольная матрица размером N×M. Составить программу, которая преобразует матрицу следующим образом:поэлементно вычитает последнюю строку из всех строк, кроме последней. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	05.11.2011, 18:55	2
	Что сами сделали? 0

@SuPeR XaKer
	05.11.2011, 19:25 Поэлементно вычесть последнюю строку из всех строк, кроме последней #4
	Не по теме: эт вроди бейсик а не паскаль.:D 0