
Вопрос задан 13.04.2021 в 03:26.
Предмет Информатика.
Спрашивает Курченко Настя.
Создать линейный массив из 15 элементов, заполнить числами интервала (-10;10). Вывести на экран.
1)посчитать количество четных элементов массива 2)найти среднее арифметическое нечетных элементов массива 3)заменить все положительные элементы массива нулями. Новый массив вывести на экран

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

Отвечает Якушенок Дарина.
Const
N = 15;
Var A:array[1..N] of integer;
i,Kc,Kn,Sn:integer;
Begin
Kc:=0;
Sn:=0;
Kn:=0;
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] mod 2 = 0 then Kc:=Kc+1;
if A[i] mod 2 <> 0 then
Begin
Sn:=Sn+A[i];
Kn:=Kn+1;
End;
if A[i]>0 then A[i]:=0;
End;
WriteLn;
WriteLn('Количество чётных: ',Kc);
WriteLn('Среднее арифметическое нечётных: ',Sn/Kn);
Write('Новый массив:');
For i:= 1 to N do
Write(' ',A[i])
End.
Пример:
Исходный массив: -1 4 -8 9 -6 -10 0 3 9 -1 1 4 -2 -6 3
Количество чётных: 8
Среднее арифметическое нечётных: 3.28571428571429
Новый массив: -1 0 -8 0 -6 -10 0 0 0 -1 0 0 -2 -6 0
N = 15;
Var A:array[1..N] of integer;
i,Kc,Kn,Sn:integer;
Begin
Kc:=0;
Sn:=0;
Kn:=0;
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] mod 2 = 0 then Kc:=Kc+1;
if A[i] mod 2 <> 0 then
Begin
Sn:=Sn+A[i];
Kn:=Kn+1;
End;
if A[i]>0 then A[i]:=0;
End;
WriteLn;
WriteLn('Количество чётных: ',Kc);
WriteLn('Среднее арифметическое нечётных: ',Sn/Kn);
Write('Новый массив:');
For i:= 1 to N do
Write(' ',A[i])
End.
Пример:
Исходный массив: -1 4 -8 9 -6 -10 0 3 9 -1 1 4 -2 -6 3
Количество чётных: 8
Среднее арифметическое нечётных: 3.28571428571429
Новый массив: -1 0 -8 0 -6 -10 0 0 0 -1 0 0 -2 -6 0



Отвечает Шитов Артем.
Main() {
int mas = int[21];
int i, k_chet;k_odd, sum_odd;
for (i=-10; i<11; i++)
mas[i+10] = i;
k_chet = 0//*********************************1)
for (i=0; i<sizeof(mas); i++)
if (mas[i]/2 = 0) k+chet++;
k_odd=0; sum_odd=0//********************2)
for (i=0; i<sizeof(mas); i++)
if (mas[i]/2 != 0) {
k+odd++;
sum_odd += mas[i];
}
sum_odd = sum_odd/k_odd;
for (i=0; i<sizeof(mas); i++) {//***********3)
if (mas[i] > 0) mas[i] = 0;
printf(mas[i],%s);
}
}
int mas = int[21];
int i, k_chet;k_odd, sum_odd;
for (i=-10; i<11; i++)
mas[i+10] = i;
k_chet = 0//*********************************1)
for (i=0; i<sizeof(mas); i++)
if (mas[i]/2 = 0) k+chet++;
k_odd=0; sum_odd=0//********************2)
for (i=0; i<sizeof(mas); i++)
if (mas[i]/2 != 0) {
k+odd++;
sum_odd += mas[i];
}
sum_odd = sum_odd/k_odd;
for (i=0; i<sizeof(mas); i++) {//***********3)
if (mas[i] > 0) mas[i] = 0;
printf(mas[i],%s);
}
}



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Вот код на языке Python, который решает задачу:
pythonimport random
# создаем массив из 15 элементов
array = [random.randint(-10, 10) for _ in range(15)]
# выводим массив на экран
print("Исходный массив:")
print(array)
# 1) считаем количество четных элементов массива
count_even = 0
for number in array:
if number % 2 == 0:
count_even += 1
print("Количество четных элементов: ", count_even)
# 2) находим среднее арифметическое нечетных элементов массива
sum_odd = 0
count_odd = 0
for number in array:
if number % 2 != 0:
sum_odd += number
count_odd += 1
if count_odd == 0:
print("В массиве нет нечетных элементов.")
else:
mean_odd = sum_odd / count_odd
print("Среднее арифметическое нечетных элементов: ", mean_odd)
# 3) заменяем все положительные элементы массива нулями
for i in range(len(array)):
if array[i] > 0:
array[i] = 0
print("Новый массив:")
print(array)
Пример вывода программы:
csharpИсходный массив:
[1, -5, -8, 0, -3, -9, 7, -9, 2, -2, -2, -7, 5, -10, 7]
Количество четных элементов: 6
Среднее арифметическое нечетных элементов: -4.8
Новый массив:
[0, -5, -8, 0, -3, -9, 0, -9, 0, -2, -2, -7, 0, -10, 0]


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

Информатика 565

Информатика 25

Информатика 22

Информатика 27

Информатика 34

Информатика 58

Информатика 63

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