Вопрос задан 29.06.2023 в 04:59. Предмет Информатика. Спрашивает Осяк Ангелина.

Помогите с информатикой! 1. Заполните массив из 25 целых чисел случайными числами в диапазоне

[0,100) и подсчитайте количество четных элементов. 2. Заполните массив из 10 целых чисел случайными числами в диапазоне [10,50) и вычислите сумму чисел, кратных 3, и произведение чисел меньше 35.​
0 0
Перейти к ответам

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

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

 1 Задание

//Ищет количество четных цифр с диапазоне от 0 до 100, 25 чисел                                            

Program v1;

var a:array[1..25]of integer;            

i,kol:integer;

begin

 kol:=0;            

randomize;

for i:=1 to 25 do a[i]:=random(100)+0;                            

write('Значение матрицы: ');                                      

for i:=1 to 25 do write(a[i]:5); writeln;                          

      for i:=1 to 25 do if a[i] mod 2=0 then kol:=kol+1;

      if kol>0 then

      writeln('Количество четных цифр: ',kol) else

        writeln('Четных элементов нет');

      end.

2 задание

      //Ищет количество  элементов матрицы кратных 3 и произведение жлементов матрицы меньше 35 в диапазоне от 50 до 10, 10 чисел                                                    

Program v1;

var a:array[1..10]of integer;            

i,sum,p:integer;

begin

 sum:=0;  

 p:=1;

randomize;

for i:=1 to 10 do a[i]:=random(40)+10;                            

write('Значение матрицы: ');                                      

for i:=1 to 10 do write(a[i]:5); writeln;                          

      for i:=1 to 10 do begin if a[i] mod 3=0 then sum:=sum+a[i];

      if a[i]<35 then p:=p*a[i]

      end;

      if sum>0 then

      writeln('Сумма элементов матрицы кратных 3: ', sum ,' ','Произведение элементов матрицы меньше 35: ',p) else

        writeln('Элементов кратных 3 нет');

      end.



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

Конечно, я могу помочь вам с этими задачами на языке программирования Python. Вот код для выполнения каждой из задач:

  1. Заполните массив из 25 целых чисел случайными числами в диапазоне [0,100) и подсчитайте количество четных элементов:
python
import random # Создаем пустой массив для хранения случайных чисел array = [] # Заполняем массив случайными числами в диапазоне [0,100) for _ in range(25): random_number = random.randint(0, 99) array.append(random_number) # Подсчитываем количество четных элементов even_count = sum(1 for num in array if num % 2 == 0) print("Сгенерированный массив:", array) print("Количество четных элементов:", even_count)
  1. Заполните массив из 10 целых чисел случайными числами в диапазоне [10,50) и вычислите сумму чисел, кратных 3, и произведение чисел меньше 35:
python
import random # Создаем пустой массив для хранения случайных чисел array = [] # Заполняем массив случайными числами в диапазоне [10,50) for _ in range(10): random_number = random.randint(10, 49) array.append(random_number) # Вычисляем сумму чисел, кратных 3, и произведение чисел меньше 35 sum_multiple_of_3 = sum(num for num in array if num % 3 == 0) product_less_than_35 = 1 for num in array: if num < 35: product_less_than_35 *= num print("Сгенерированный массив:", array) print("Сумма чисел, кратных 3:", sum_multiple_of_3) print("Произведение чисел меньше 35:", product_less_than_35)

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

0 0

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

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

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

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