Вопрос задан 10.07.2023 в 22:28. Предмет Информатика. Спрашивает Соловьева Жанна.

Здравствуйте, помогите с заданиями по информатике! 1. Составить программу нахождения минимального

элемента и его номера в массиве вещественных чисел не более 50, задаваемых вводом с клавиатуры. 2. Сформировать массив (вывести на экран) из т случайных целых чисел на промежутке от -60 до 60, найти сумму чисел больших 20. 3. В массиве подсчитать количество элементов больших, чем 13. Элементов в массиве 14. Целочисленный массив вводится случайным образом в интервале от 3 до 30.
0 0
Перейти к ответам

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

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

Ответ:

готово

Объяснение:

1)

program minimum;

var

 i, n, k: integer;

 min: real;

 A: array of real;

begin

 Write('Введите размер массива: ');

 ReadLn(n);

 SetLength(A, n);

 for i := 0 to n - 1 do

 begin

   Write('Введите A[',i,']=');

   ReadLn(A[i]);

 end;

 min := A[0];

 for i := 1 to n - 1 do

 if A[i] < min then

   begin

     min := A[i];

     k := i;

   end;

 WriteLn('Минимальный элемент - A[',k,'] = ', min);

end.

2)

program summa;

var

 i, t, sum: integer;

 A: array of integer;

begin

 Write('Введите размер массива: ');

 ReadLn(t);

 SetLength(A, t);

 for i := 0 to t - 1 do

 begin

   A[i] := round(random(120) - 60);

   WriteLn('A[', i, '] = ', A[i]);

   if A[i] > 20 then sum := sum + a[i];

 end;

 WriteLn('Сумма чисел, больших 20 = ', sum);

end.

3)

program massiv;

var

 i, k: integer;

 A: array[0..13] of integer;

begin

 for i := 0 to 13 do

 begin

   A[i] := round(random(27) + 3);

   WriteLn('A[', i, '] = ', A[i]);

   if A[i] > 13 then k := k + 1;

 end;

 WriteLn('Количество чисел, больших 13 равно ', k);

end.

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

Здравствуйте! Рад помочь вам с заданиями по информатике. Для решения каждой задачи, я предоставлю вам код на языке программирования Python.

  1. Найти минимальный элемент и его номер в массиве вещественных чисел:
python
def find_min_element(arr): min_element = arr[0] min_index = 0 for i in range(1, len(arr)): if arr[i] < min_element: min_element = arr[i] min_index = i return min_element, min_index # Ввод массива с клавиатуры def input_array(): try: n = int(input("Введите количество элементов массива (не более 50): ")) if n > 50: print("Превышено максимальное количество элементов (50).") return None arr = [] for i in range(n): arr.append(float(input(f"Введите элемент массива {i + 1}: "))) return arr except ValueError: print("Ошибка ввода. Пожалуйста, введите число.") return None array = input_array() if array is not None: min_element, min_index = find_min_element(array) print(f"Минимальный элемент: {min_element}, его номер: {min_index}")
  1. Сформировать массив из случайных целых чисел и найти сумму чисел больших 20:
python
import random def generate_random_array(t): return [random.randint(-60, 60) for _ in range(t)] def sum_greater_than_20(arr): return sum(num for num in arr if num > 20) t = int(input("Введите количество элементов в массиве: ")) if 3 <= t <= 30: random_array = generate_random_array(t) print("Сгенерированный массив:", random_array) sum_greater_20 = sum_greater_than_20(random_array) print("Сумма чисел, больших 20:", sum_greater_20) else: print("Количество элементов должно быть от 3 до 30.")
  1. Подсчитать количество элементов больших чем 13 в массиве:
python
import random def generate_random_array(): return [random.randint(-60, 60) for _ in range(random.randint(3, 30))] def count_elements_greater_than_13(arr): return sum(1 for num in arr if num > 13) random_array = generate_random_array() print("Сгенерированный массив:", random_array) count_greater_than_13 = count_elements_greater_than_13(random_array) print("Количество элементов больше 13:", count_greater_than_13)

Надеюсь, эти программы помогут вам выполнить задания по информатике! Если у вас есть еще вопросы или нужна дополнительная помощь, не стесняйтесь спрашивать. Удачи!

0 0

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

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

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

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