Заменить все отрицательные элементы массива на 3

@Owi19 · Регистрация: 09.04.2021

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

дан массив содержащий 14 элементов все отрицательные элементы заменить на 3 и вывести исходный и полученный массивы

I can · 09.04.2021, 06:02

0 0 0 0 0 0 0 0 0 0 0 0 0 -1

0 0 0 0 0 0 0 0 0 0 0 0 0 3

@Argus19 · 09.04.2021, 11:11

Owi19, если вы скажете преподавателю: "несформулированная задача не имеет решения", он может и обидеться.
Спросите: "Случайным образом создать массив из 14 целых\вещественных чисел в диапазоне от... до ...

Сообщение от Owi19

все отрицательные элементы заменить на 3 аывести исхожжный и полученный массив

Так пойдёт?

@Alex77755 · 09.04.2021, 18:31

I can,

Не по теме:

Не факт. Из вопроса можно понять, что он, всё-таки дан
Но ТС умалчивает каким образом он дан
В текстовом файле, на листе ексел(ворд), сгенерирован в другой процедуре и уже находится в переменной и нужна функция...
В конце концов написан на бумажке и надо просканировать и распознать текст

@Rh2Dark · 10.04.2021, 20:52

Злые вы, запинали сразу человека...

Отправляете заполненный массив "Arr" в процедуру, которая выполняет замену и выводит в поле быстрого исполнения результаты (по умолчанию предположу, что массив одномерный, состоящий из целых чисел. Если это не так, пеняйте на себя - нужно точнее формулировать условия задачи):

Visual Basic

Sub ReplaceArray(Arr(13) as Long)
Dim aRpl(13) as Long 'новый массив
Dim i As Integer 'счетчик цикла
'**********************************************
For i = 0 to 13 'цикл от 0 до 13 (всего 14 значений)
   aRpl(i) = arr(i) 'значение из исходного массива в новый
   If aRpl(i) < 0 Then aRpl(i) = 3 'замена если отрицательное значение
   Debug.Print Arr(i) & " / " & aRpl(i) 'вывод оригинального и нового значений через "/"
Next i
End Sub

I can · 10.04.2021, 21:18

Сообщение от Rh2Dark

Злые вы, запинали сразу человека

Этот человек не поздоровался даже, ничего не попросил, только тупо закинул задание - "делайте, рабы".
"Помогать" таким - себя не уважать, имхо.

@Owi19 0 / 0 / 0 Регистрация: 09.04.2021 Сообщений: 1
		1
	Заменить все отрицательные элементы массива на 3 09.04.2021, 05:28. Показов 2128. Ответов 5 Метки visual (Все метки) дан массив содержащий 14 элементов все отрицательные элементы заменить на 3 и вывести исходный и полученный массивы 0

I can help 4426 / 4079 / 812 Регистрация: 13.04.2015 Сообщений: 8,926
	09.04.2021, 06:02	2
	0 0 0 0 0 0 0 0 0 0 0 0 0 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 3 1

@Argus19 609 / 399 / 78 Регистрация: 24.09.2017 Сообщений: 2,329 Записей в блоге: 17
	09.04.2021, 11:11	3
	Owi19, если вы скажете преподавателю: "несформулированная задача не имеет решения", он может и обидеться. Спросите: "Случайным образом создать массив из 14 целых\вещественных чисел в диапазоне от... до ... Сообщение от Owi19 все отрицательные элементы заменить на 3 аывести исхожжный и полученный массив Так пойдёт? 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,222
	09.04.2021, 18:31	4
	I can, Не по теме: Не факт. Из вопроса можно понять, что он, всё-таки дан Но ТС умалчивает каким образом он дан В текстовом файле, на листе ексел(ворд), сгенерирован в другой процедуре и уже находится в переменной и нужна функция... В конце концов написан на бумажке и надо просканировать и распознать текст 1

I can help 4426 / 4079 / 812 Регистрация: 13.04.2015 Сообщений: 8,926
	10.04.2021, 21:18	6
	Сообщение от Rh2Dark Злые вы, запинали сразу человека Этот человек не поздоровался даже, ничего не попросил, только тупо закинул задание - "делайте, рабы". "Помогать" таким - себя не уважать, имхо. 1