Задать вопрос
18 мая, 10:41

Дан массив, состоящий из 100 целых чисел:

а) Вывести все числа, которые встречаются в этом массиве по нескольку раз;

б) Вывести все числа, которые встречаются в массиве только по одному разу.

+5
Ответы (1)
  1. 18 мая, 13:03
    0
    Dim A (100) As Integer, Odin As Boolean

    Dim k As Integer, i As Integer

    Randomize

    For i = 1 To 100

    A (i) = Int (Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100

    Print A (i) & CHR (9) ; ' Выводим начальный массив через табуляцию

    Next i

    Print "Повторяющиеся элементы"

    For i = 1 To 100

    For k = i+1 To 100

    If A (i) = A (k) Then Print A (i) & CHR (9) ;

    Next k

    Next i

    Print "Не повторяющиеся элементы"

    For i = 1 To 100

    Odin = True

    For k = i+1 To 100

    If A (i) = A (k) Then Odin = False

    Next k

    If Odin = True Then Print A (i) & CHR (9) ;

    Next i

    End
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан массив, состоящий из 100 целых чисел: а) Вывести все числа, которые встречаются в этом массиве по нескольку раз; б) Вывести все числа, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1.) Вывести на экран одномерный целочисленный массив, состоящий из 10 целых чисел из диапазона [-100; 100] 2.) Задан одномерный целочисленный массив, состоящий из 7 случайных чисел.
Ответы (1)
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
Помогите написать программу в Python. 1) Дан массив, состоящий из целых чисел. Нумерация элементов начинается с 0. Напишите программу, которая выведет элементы массива, номера которых четны (0, 2, 4 ...). 2) Дан массив, состоящий из целых чисел.
Ответы (1)
Язык Паскаль. №1 Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру k. №2 Дан масив целых числ. Найти в этом массиве минимальный элмент m и максимальный M.
Ответы (1)
Дан массив, состоящий из целых чисел. Известно, что числа упорядочены по неубыванию (то есть каждый следующий элемент не меньше предыдущего). Напишите программу, которая определит количество различных чисел в этом массиве.
Ответы (1)