Question

Помогите срочно. Решить через змсо или змск (как написано в условии) 1. Дан одномерный массив размерностью 20, заполненный случайным образом числами диапазона -12…56. Найти среднее арифметическое элементов с нечетными номерами. 2. В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей. Определить двух самых быстрых автомобилей. 3. В одномерном массиве А размерностью 20, определить количество нулевых элементов и записать на их место индексы этих элементов. Массив заполнить случайными числами из диапазона -5…10. 4. Составьте программу формирования из массива A[N] двух массивов, в которых первый массив заполнен предшествующими минимальному, а второй - остальными элементами. Элементы массива ввести с клавиатуры.

Answer 1

===== PascalABC.NET =====

// 1

begin

 var a := ArrRandom(20, -12, 56);

 a.Println;

 a.Where((s, i) -> i.IsEven).Average.Println;

end.

// 2

begin

 var a := ReadArrInteger(40); // ввод с клавиатуры

 a.OrderDescending.Take(2).Println

end.

// 3

begin

 var a := ArrRandom(20, -5, 10);

 a.Println;

 Println('Нулевых элементов:',a.Count(p -> p = 0));

 a.Transform((v,i) -> v = 0 ? i + 1 : v);

 a.Println

end.

// 4

begin

 var n := ReadInteger('n =');

 var a :=ReadArrInteger('Вводите:', n);

 var i := a.IndexMin;

 var b := a[:i];

 b.Println;

 var c := a[i:];

 c.Println

end.

Answer 2

Ответ:

Объяснение:

const

 n=40;

var

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

 i,amax,n1,nn:integer;

begin

 Randomize;

 Writeln('Элементы массива');

 amax:=0;

 for i := 1 to n do

 begin

   a[i]:=Random(61)+170; { [170..230] }

   Write(a[i]:4);

   if amax<a[i] then

     begin amax:=a[i]; n1:=i; nn:=i end

   else

     begin if amax=a[i] then nn:=i end

 end;

 Writeln;

 Writeln('Номер первого автомобиля ',n1,', последнего- ',nn)

end.

Элементы массива

 185 202 226 209 200 183 219 181 228 181 206 171 182 210 226 187 214 229 219 219 219 206 229 183 178 177 197 199 180 186 183 203 191 194 214 197 215 194 221 187

Номер первого автомобиля 18, последнего- 23

Answer 3

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

1. Найти среднее арифметическое элементов с нечетными номерами:

pythonCopy code
import random

array = [random.randint(-12, 56) for _ in range(20)]
sum_odd = 0
count_odd = 0

for i in range(len(array)):
    if i % 2 != 0:
        sum_odd += array[i]
        count_odd += 1

if count_odd > 0:
    average_odd = sum_odd / count_odd
else:
    average_odd = 0

print("Среднее арифметическое элементов с нечетными номерами:", average_odd)

2. Определить двух самых быстрых автомобилей:

pythonCopy code
car_speeds = [random.randint(0, 300) for _ in range(40)]
sorted_speeds = sorted(car_speeds, reverse=True)

fastest_cars = sorted_speeds[:2]
print("Две самые быстрые машины:", fastest_cars)

3. Определить количество нулевых элементов и записать на их место индексы этих элементов:

pythonCopy code
array = [random.randint(-5, 10) for _ in range(20)]
zero_count = 0

for i in range(len(array)):
    if array[i] == 0:
        zero_count += 1
        array[i] = i

print("Количество нулевых элементов:", zero_count)
print("Массив с индексами нулевых элементов:", array)

4. Формирование двух массивов из массива A[N], где первый массив заполнен предшествующими минимальному элементами, а второй - остальными элементами:

pythonCopy code
n = int(input("Введите размер массива: "))
array = [int(input("Введите элемент массива: ")) for _ in range(n)]
min_value = min(array)
index_min = array.index(min_value)

array1 = array[:index_min]
array2 = array[index_min + 1:]

print("Первый массив:", array1)
print("Второй массив:", array2)

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