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

@talon · Регистрация: 29.06.2014

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

5. По двум массивам построить третий, как сумму соответствующих элементов исходных массивов, если элементы отрицательные, и как разность, если элементы положительные. Найти сумму отрицательных элементов в полученном массиве и максимальный элемент среди положительных элементов.
________________________________________ ________________________________________ _____

@xod · 03.07.2014, 17:14

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
DEFINT I-L, N
RANDOMIZE TIMER
CLS
INPUT "N="; n
DIM a(n)
DIM b(n)
 
FOR i = 1 TO n
   a(i) = 40 * RND - 20
   LOCATE 3, 9 * i - 7
   PRINT USING "###.####  "; a(i)
   b(i) = 40 * RND - 20
   LOCATE 5, 9 * i - 7
   PRINT USING "###.####  "; b(i)
NEXT i
 
k = 0
FOR i = 1 TO n
   IF a(i) * b(i) > 0 THEN k = k + 1
NEXT i
 
IF k = 0 THEN
   PRINT "TAKOGO MASSIVA NET"
   GOTO 1000
END IF
 
DIM c(k)
l = 1
FOR i = 1 TO n
   IF a(i) < 0 AND b(i) < 0 THEN
      c(l) = a(i) + b(i)
      l = l + 1
   ELSEIF a(i) > 0 AND b(i) > 0 THEN
      c(l) = a(i) - b(i)
      l = l + 1
   END IF
NEXT i
 
FOR i = 1 TO k
   LOCATE 7, 9 * i - 7
   PRINT USING "###.####  "; c(i)
NEXT i
 
l = 0
FOR i = 1 TO k
   IF c(i) < 0 THEN l = l + 1
NEXT i
 
IF l = 0 THEN
   PRINT "OTRICATELNYH ELEMENTOV NET"
ELSE
   sum = 0
   FOR i = 1 TO k
      IF c(i) < 0 THEN sum = sum + c(i)
   NEXT i
   LOCATE 9, 4
   PRINT USING "SUMMA = ###.####  "; sum
END IF
 
l = 0
FOR i = 1 TO k
   IF c(i) > 0 THEN l = l + 1
NEXT i
 
IF l = 0 THEN
   PRINT "POLOSHITELNYH ELEMENTOV NET"
ELSE
   max = 0
   FOR i = 1 TO k
      IF max < c(i) THEN max = c(i)
   NEXT i
   LOCATE 11, 4
   PRINT USING "MAX = ###.####  "; max
END IF
1000
END

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@talon 0 / 0 / 0 Регистрация: 29.06.2014 Сообщений: 6

	По двум массивам построить третий, как сумму соответствующих элементов исходных массивов 29.06.2014, 16:08. Показов 1402. Ответов 1 Метки нет (Все метки) 5. По двум массивам построить третий, как сумму соответствующих элементов исходных массивов, если элементы отрицательные, и как разность, если элементы положительные. Найти сумму отрицательных элементов в полученном массиве и максимальный элемент среди положительных элементов. ________________________________________ ________________________________________ _____ 0

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

Решение