Вопрос задан 29.10.2023 в 03:43. Предмет Информатика. Спрашивает Бабич Сабина.

Заполнить массив из 20 целых элементов случайными числами из диапазона от 5 до 20. Обеспечить вывод

исходного массива на экран. Подсчитать количество чётных элементов массива. Дан массив из 10 вещественных элементов. Обеспечить заполнение массива в клавиатуры. Подсчитать среднее арифметическое элементов массива, меньших 1. Срочно, помогите с подробным решением!!!
0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Прокопьева Маша.

Ответ:

1)

var

i,c:integer; //Объявляем переменные

mas: array [1..20] of integer; //Объявляем массив

begin

c:=0; //Обнуляем переменную c

writeln('20 случайных чисел:'); //выводим на экран сообщение

randomize; //запускам рандом

for i:=1 to 20 do begin //запускаем цикл для массива от 1го до 20го элемента по очереди

mas[i]:=random(5,20); //генерируем число от 5 до 20

if mas[i] mod 2 = 0 then begin //запускам проверку, на четность числа. Если оно делится без остатка на 2

c:=c+1; //то к переменной c прибавляем единицу (значит оно четное

end;

write(mas[i], ' '); //Выводим наш массив

end;

writeln(); //пробел между строк

writeln('Количество четных элементов = ', c); //выводим количество четных элементов  

end.

2)

var

i:integer; //Объявляем переменные

s:real; //Объявляем переменные

mas: array [1..10] of real; //Объявляем массив

begin

writeln('Введите 10 вещественных чисел'); //выводим на экран сообщение

for i:=1 to 10 do begin //запускаем цикл заполнения массива

read(mas[i]); //вводим число с клавиатуры

if mas[i] < 1 then //проверяем меньше ли единицы введенное число

s:=s+mas[i]; //если меньше,то прибавляем его в сумму (считаем сумму всех чисел, меньше 1, чтобы найти среднее арифметическое)

end;

s:=s/10; //Делим сумму на количество чисел  

writeln ('Среднее арифметическое = ',s);

end.



0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, я помогу вам с этими задачами на языке программирования Python. Давайте начнем с первой задачи. ### Задача 1: Заполнение массива случайными числами и подсчет четных элементов ```python import random # Создаем пустой массив из 20 целых элементов array = [] # Заполняем массив случайными числами от 5 до 20 for _ in range(20): random_number = random.randint(5, 20) array.append(random_number) # Выводим исходный массив на экран print("Исходный массив:", array) # Подсчитываем количество четных элементов count_even = 0 for num in array: if num % 2 == 0: count_even += 1 print("Количество четных элементов в массиве:", count_even) ``` В этом коде мы используем модуль `random`, чтобы генерировать случайные числа и заполнять массив. Затем мы проходим по массиву и считаем количество четных элементов. ### Задача 2: Заполнение массива с клавиатуры и подсчет среднего арифметического элементов меньших 1 ```python # Создаем пустой массив из 10 вещественных элементов real_array = [] # Заполняем массив с клавиатуры for _ in range(10): value = float(input("Введите вещественное число: ")) real_array.append(value) # Подсчитываем среднее арифметическое элементов меньших 1 sum_less_than_1 = 0 count_less_than_1 = 0 for num in real_array: if num < 1: sum_less_than_1 += num count_less_than_1 += 1 if count_less_than_1 == 0: print("В массиве нет элементов меньше 1.") else: average = sum_less_than_1 / count_less_than_1 print("Среднее арифметическое элементов меньше 1:", average) ``` В этом коде мы сначала создаем пустой массив и заполняем его вводом с клавиатуры. Затем мы проходим по массиву и считаем сумму элементов, меньших 1, и их количество, чтобы вычислить среднее арифметическое. Если в массиве нет элементов меньше 1, мы выводим соответствующее сообщение.
0 0

Похожие вопросы

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

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

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