Вопрос задан 20.02.2019 в 23:53. Предмет Информатика. Спрашивает Пиунов Егор.

Помогите с Информатикой пожалуйста. №1 Напишите программу ,которая в последовательности целых чисел

определяет кол-во чисел, оканчивающихся на 5. Программа получает на вход одномерный массив из 20 случайных чисел в диапазоне значений от 100 до 200. Программа должна вывести одно число : кол-во чисел , оканчивающихся на 5 или вывести сообщение "Таких чисел нет".Ввод и вывод массива организовать при помощи процедуры. №2 Напишите программу ,которая в последовательности целых чисел определяет максимальное число ,кратное 3 .Программа получает на вход двухмерный массив из 40 случайных чисел в диапазоне значений от -100 до 100. Программа должна вывести одно число - максимальное число ,кратное 3 или вывести сообщение "Таких чисел нет'. Ввод и вывод массива организовать при помощи процедуры.
0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Бринчак Юля.
1)
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
    var a := ArrRandomInteger(20, 100, 200);
    Println(a);
    var k := a.Count(x -> x mod 10 = 5);
    Writeln((k = 0) ? 'Таких чисел нет' : k.ToString());
end.

2)
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
    var a := ArrRandomInteger(40, -100, 100);
    Println(a);
    var max := a.Count(x -> x mod 3 = 0);
    if max <> 0 then
        max := a.Where(x -> x mod 3 = 0).Max;
    Writeln((max = 0) ? 'Таких чисел нет' : max.ToString());
end.


0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Решение №1: Подсчет чисел, оканчивающихся на 5

Для решения этой задачи мы можем написать программу, которая будет проходить по массиву из 20 случайных чисел в диапазоне от 100 до 200 и определять количество чисел, оканчивающихся на 5. Ввод и вывод массива можно организовать при помощи процедуры.

```python import random

# Функция для генерации массива из 20 случайных чисел в диапазоне от 100 до 200 def generate_array(): return [random.randint(100, 200) for _ in range(20)]

# Процедура для вывода массива def print_array(arr): print("Массив случайных чисел:", arr)

# Функция для подсчета чисел, оканчивающихся на 5 def count_numbers_ending_in_5(arr): count = sum(1 for num in arr if num % 10 == 5) if count > 0: print("Количество чисел, оканчивающихся на 5:", count) else: print("Таких чисел нет")

# Генерируем массив arr = generate_array()

# Выводим массив print_array(arr)

# Подсчитываем числа, оканчивающиеся на 5 count_numbers_ending_in_5(arr) ```

Решение №2: Поиск максимального числа, кратного 3

Для этой задачи мы можем написать программу, которая будет проходить по двумерному массиву из 40 случайных чисел в диапазоне от -100 до 100 и определять максимальное число, кратное 3. Ввод и вывод массива также можно организовать при помощи процедуры.

```python import random

# Функция для генерации двумерного массива из 40 случайных чисел в диапазоне от -100 до 100 def generate_2d_array(): return [[random.randint(-100, 100) for _ in range(4)] for _ in range(10)]

# Процедура для вывода двумерного массива def print_2d_array(arr): print("Двумерный массив случайных чисел:") for row in arr: print(row)

# Функция для поиска максимального числа, кратного 3 def find_max_multiple_of_3(arr): max_multiple_of_3 = max((num for row in arr for num in row if num % 3 == 0), default=None) if max_multiple_of_3 is not None: print("Максимальное число, кратное 3:", max_multiple_of_3) else: print("Таких чисел нет")

# Генерируем двумерный массив arr_2d = generate_2d_array()

# Выводим двумерный массив print_2d_array(arr_2d)

# Ищем максимальное число, кратное 3 find_max_multiple_of_3(arr_2d) ```

Надеюсь, эти программы помогут вам с вашими задачами по информатике!

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос