Question

1. Написать программу, которая запрашивает массив размерности N и выводит на экран сам массив, а также наибольший и наименьший элементы массива. Протестировать программу на массивах размерностью 5 элементов. 2. Написать программу, которая запрашивает массив из N элементов, а затем делит все элементы массива на минимальный элемент. Протестировать программу на масси- вах размерностью 5 элементов. 3. Написать программу, которая запрашивает массив из N элементов и увеличивает все элементы массива на максимальный элемент. Протестировать программу на массивах размерностью 8 элементов.

Answer 1

1.                                        

program raf105;

const

 n = 5;

var

 a: array[1..n] of integer;

 x,max,min,i: integer;

begin

writeln('Введите ',n,' по очереди');

for i:=1 to n do

 readln(a[i]);

max:= a[1];

min:= a[1];

for i:=1 to n do

begin

 if max < a[i]

   then max:= a[i];

 if min > a[i]

   then min:= a[i];

end;

writeln;

write('Массив: ');

for i:=1 to n do

 write(a[i],' ');

writeln;

writeln('Наибольший элемент: ',max);

writeln('Наименьший элемент: ',min);

end.

2.                                        

program raf105;

const

 n = 5;

var

 a: array[1..n] of real;

 x,i: integer;

 min: real;

begin

writeln('Введите ',n,' по очереди');

for i:=1 to n do

 readln(a[i]);

writeln;

write('Исходный массив: ');

for i:=1 to n do

 write(a[i],' ');

min:= a[1];

for i:=1 to n do

 if min > a[i]

   then min:= a[i];

for i:=1 to n do

 a[i]:= a[i]/min;

writeln;

write('Изменённый массив: ');

for i:=1 to n do

 write(a[i],' ');

end.

3.                                        

program raf105;

const

 n = 8;

var

 a: array[1..n] of integer;

 x,i,max: integer;

begin

writeln('Введите ',n,' по очереди');

for i:=1 to n do

 readln(a[i]);

writeln;

write('Исходный массив: ');

for i:=1 to n do

 write(a[i],' ');

max:= a[1];

for i:=1 to n do

 if max < a[i]

   then max:= a[i];

for i:=1 to n do

 a[i]:= a[i]+max;

writeln;

write('Изменённый массив: ');

for i:=1 to n do

 write(a[i],' ');

end.

                                         

PascalABC 3.4.2

Answer 2

Вот примеры программ на языке Python, реализующие требуемые функциональности:

1. Программа для вывода массива и нахождения наибольшего и наименьшего элементов:

pythonCopy code
def print_array_stats(arr):
    print("Массив:", arr)
    print("Наибольший элемент:", max(arr))
    print("Наименьший элемент:", min(arr))

# Тестирование программы на массивах размерностью 5 элементов
array1 = [5, 2, 9, 1, 7]
print_array_stats(array1)

array2 = [3, 8, 4, 6, 2]
print_array_stats(array2)

2. Программа для деления всех элементов массива на минимальный элемент:

pythonCopy code
def divide_by_min(arr):
    min_element = min(arr)
    divided_array = [element / min_element for element in arr]
    return divided_array

# Тестирование программы на массивах размерностью 5 элементов
array1 = [5, 10, 15, 20, 25]
result1 = divide_by_min(array1)
print("Исходный массив:", array1)
print("Результат деления на минимальный элемент:", result1)

array2 = [4, 2, 8, 6, 10]
result2 = divide_by_min(array2)
print("Исходный массив:", array2)
print("Результат деления на минимальный элемент:", result2)

3. Программа для увеличения всех элементов массива на максимальный элемент:

pythonCopy code
def increase_by_max(arr):
    max_element = max(arr)
    increased_array = [element + max_element for element in arr]
    return increased_array

# Тестирование программы на массивах размерностью 8 элементов
array1 = [1, 2, 3, 4, 5, 6, 7, 8]
result1 = increase_by_max(array1)
print("Исходный массив:", array1)
print("Результат увеличения на максимальный элемент:", result1)

array2 = [10, 20, 30, 40, 50, 60, 70, 80]
result2 = increase_by_max(array2)
print("Исходный массив:", array2)
print("Результат увеличения на максимальный элемент:", result2)

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