Умножить все элементы, кратные трем, на третий элемент массива - QBasic

QBasic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.50/8:

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

	Умножить все элементы, кратные трем, на третий элемент массива 26.01.2015, 02:36. Показов 1579. Ответов 1 Метки нет (Все метки) Умножить все элементы,кратные 3, на третий элемент массива. 0

Лучшие ответы (1)

Сообщение: #7152695

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

26.01.2015, 02:36

Ответы с готовыми решениями:

Умножить все элементы, кратные трем на третий элемент массива
Умножить все элементы, кратные трем на третий элемент массива. на ABC

Умножить все элементы, кратные 3, на третий элемент массива
Дан массив целых чисел P ,состоящий из 30 элементов.Заполнить его с клавиатуры Дан массив целых чисел Р .состоящий из 30 элементов....

Умножить все элементы, кратные 3, на третий элемент массива
В массиве А, заполненного случайными числами , умножить все элементы, кратные 3, на третий элемент массива.

ZX Spectrum-128

6812 / 4568 / 4820

Регистрация: 05.06.2014

Сообщений: 22,434

26.01.2015, 18:27

Сообщение было отмечено Arci как решение

Решение

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
DIM a(1 TO 100)
 
RANDOMIZE TIMER
PRINT "N?"
INPUT n
PRINT "Old array"
FOR i = 1 TO n
  a(i) = INT(RND * 50 - 50 / 2)
  PRINT a(i);
NEXT i
 
FOR i = 1 TO n
  IF a(i) MOD 3 = 0 THEN
    a(i) = a(i) * a(3)
  END IF
NEXT
PRINT
PRINT "New array"
FOR i = 1 TO n
  PRINT a(i);
NEXT i

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

26.01.2015, 18:27

Помогаю со студенческими работами здесь

Умножить все элементы, кратные 5, на пятый элемент массива
Приветствую форумчане. Прошу вас помочь с заданием. За ранее огромное спасибо от всей группы. Задача: 1. Дан массив целых чисел...

Массив. Умножить все элементы, кратные 3, на 3 элемент массива
Помогите создать пару задач в паскале СРОЧНО!!! 37. Дана масса в килограммах. Найти число полных центнеров в ней -линейное 8. Даны...

Умножить все элементы массива, кратные 4, на последний элемент массива
Дан массив целых чисел, содержащий 15 элементов (массив вводить как типизированную константу). Умножить все элементы массива, кратные 4, на...

В заданном массиве чисел заменить все элементы массива, кратные 3, на третий элемент массива
Во всех вариантах элементы массива вводить с помощью генератора случайных чисел. Обязательно выводить на экран исходный массив и...

Дан массив целых чисел. Заменить все элементы массива кратные 3, на третий элемент массива
Здравствуйте. Прошу опять помощи :-) Задача следующая: Дан массив целых чисел. Заменить все элементы массива кратные 3, на...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

Наверх