Заменить в третьем столбце все отрицательные элементы нулями, все положительные в 5-й строке их квадратами

@msh · Регистрация: 02.11.2014

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

Не могу решить.
1.Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами.

@bormant · 12.11.2014, 23:02

1)

QBasic/QuickBASIC

RANDOMIZE TIMER
INPUT "Введите m, n: ", m, n
DIM r(m, n)
PRINT "A="
FOR i = 1 TO m
  FOR j = 1 TO n
    r(i, j) = INT(RND * 21) - 10
    PRINT USING " ###"; r(i, j);
  NEXT
  PRINT
NEXT
FOR i = 1 TO m
  IF r(i, 3) < 0 THEN r(i, 3) = 0
NEXT
FOR j = 1 TO n
  IF r(5, j) > 0 THEN r(5, j) = r(5, j) ^ 2
NEXT
PRINT "A'="
FOR i = 1 TO m
  FOR j = 1 TO n
    PRINT USING " ###"; r(i, j);
  NEXT
  PRINT
NEXT

@msh · 12.11.2014, 23:50 **[ТС]**

bormant, и ещё раз,Спасибо большое)

@Zheka4190 · 21.11.2017, 22:23

Переведите на паскаль пожалуйста.

@msh 0 / 0 / 0 Регистрация: 02.11.2014 Сообщений: 13
		1
	Заменить в третьем столбце все отрицательные элементы нулями, все положительные в 5-й строке их квадратами 12.11.2014, 00:44. Показов 1428. Ответов 3 Метки нет (Все метки) Не могу решить. 1.Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами. 0

@msh 0 / 0 / 0 Регистрация: 02.11.2014 Сообщений: 13
	12.11.2014, 23:50 [ТС]	3
	bormant, и ещё раз,Спасибо большое) 0

@Zheka4190 0 / 0 / 0 Регистрация: 21.11.2017 Сообщений: 6
	21.11.2017, 22:23	4
	Переведите на паскаль пожалуйста. 0

Опции темы

Заменить в третьем столбце все отрицательные элементы нулями, все положительные в 5-й строке их квадратами

Решение