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

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

Ответ:
готово
Объяснение:
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.



Здравствуйте! Рад помочь вам с заданиями по информатике. Для решения каждой задачи, я предоставлю вам код на языке программирования Python.
- Найти минимальный элемент и его номер в массиве вещественных чисел:
pythondef 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}")
- Сформировать массив из случайных целых чисел и найти сумму чисел больших 20:
pythonimport 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.")
- Подсчитать количество элементов больших чем 13 в массиве:
pythonimport 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)
Надеюсь, эти программы помогут вам выполнить задания по информатике! Если у вас есть еще вопросы или нужна дополнительная помощь, не стесняйтесь спрашивать. Удачи!


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili