Question

1.Написать программу, которая проверяет, образуют ли элементы введенного с клавиатуры массива неубывающую последовательность.2.Вставить число А перед всеми элементами, большими А, а число В - после всех элементов, меньших его.3.Дана матрица Ф(6х7), заполненный случайным образом. Заменить максимальный элемент каждой строки на противоположный по знаку.4. Дан двумерный массив. Найти сумму элементов его главной диагонали и поизведение элементов побочной диагонали. Результат занести в одномерный массив.Пожалуйста, помогите, очень нужно! Хотя бы некоторые решите. Второй день не могу сделать! Тема одномерных и двумерных массивов.

Answer 1

                                           НАПИСАНО НА ПАСКАЛЕ!
2)


program fofgogjoj;
const nmax=100;
var
m:array[1..nmax] of integer;    
n,i,j,k:byte;    
a,b,x:integer;
begin
randomize;
repeat Write('Размер массива до ',nmax div 3,' n=');
readln(n);
until n in [1..nmax div 3];
Writeln('Исходный массив:');
for i:=1 to n do  
begin
m[i]:=random(50);  
Write(m[i],' ');  
end;
Writeln;
Writeln;
Write('Введите число для вставки перед a=');
Readln(a);
i:=1;
k:=0;
while i<=n do  
begin
if m[i]>a then    
begin    
n:=n+1;    
k:=1;    
for j:=n downto i+1 do    
m[j]:=m[j-1];    
m[i]:=a;    
i:=i+2;    end  
else i:=i+1;  
end;
if k=0 then
Writeln('Элементов больше ',a,' нет')
else  
begin  
Writeln('Массив после вставки числа ',a,' перед большими ',a);  
for i:=1 to n do  
Write(m[i],' ');  
Writeln;  
Writeln;  
Write('Введите число для вставки после b=');  
Readln(b);  
i:=1;k:=0;  
while i<=n do  
if m[i]<b then    
begin    
n:=n+1;    
k:=1;    
for j:=n downto i+2 do    
m[j]:=m[j-1];    
m[i+1]:=b;    
i:=i+2;    end  
else
i:=i+1;  
if k=0 then
Writeln('Элементов меньше ',b,' нет')  
else    
begin    
Writeln('Массив после вставки числа ',b,' после меньших ',b);    
for i:=1 to n do    
Write(m[i],' ');    
end;  
end;
readln
end.

Answer 2

Решение задачи с одномерным массивом

Для проверки, образуют ли элементы введенного с клавиатуры массива неубывающую последовательность, можно использовать следующий код на языке Python:

arr = list(map(int, input("Введите элементы массива через пробел: ").split()))
is_non_decreasing = all(arr[i] <= arr[i+1] for i in range(len(arr)-1))
print("Элементы образуют неубывающую последовательность:", is_non_decreasing)

Решение задачи с вставкой чисел

Для вставки числа A перед всеми элементами, большими A, и числа B после всех элементов, меньших B, можно использовать следующий код на языке Python:

arr = [3, 5, 2, 8, 6, 4, 7]
A = 5
B = 4
arr = [A] + [x for x in arr if x > A] + [B] + [x for x in arr if x < B]
print(arr)

Решение задачи с матрицей

Для замены максимального элемента каждой строки матрицы на противоположный по знаку можно использовать следующий код на языке Python:

import numpy as np

F = np.random.randint(1, 10, (6, 7))
for i in range(len(F)):
    max_index = np.argmax(F[i])
    F[i][max_index] *= -1
print(F)

Решение задачи с двумерным массивом

Для нахождения суммы элементов главной диагонали и произведения элементов побочной диагонали двумерного массива и занесения результата в одномерный массив можно использовать следующий код на языке Python:

import numpy as np

arr = np.array([[1, 2, 3], [4, 5, 6], [7, 8, 9]])
main_diag_sum = np.trace(arr)
secondary_diag_product = np.prod(np.diagonal(np.fliplr(arr)))
result = np.array([main_diag_sum, secondary_diag_product])
print(result)

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