
Дан массив целых чисел, состоящий из 30 элементов. Заполнить его с клавиатуры. Найти: 1. сумму
отрицательных элементов. 2. найти количество тех элементов, значения которых положительны и не превосходят рДан массив целых чисел, состоящий из азмер заданного числа А. БЕЗ SUM. 

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

Ответ:
program arraysum;
const
D = 30; // размерность массива, можно менять на любое другое
var
B: array [1..D] of Integer;
i, s, c, A: Integer;
begin
Write ('A = ');
ReadLn (A);
Write ('Введите массив из 30 элементов:');
for i := 1 to D do begin
ReadLn (B [i]);
end;
// Randomize; // это заполнение случайными числами можно для отладки раскоментарить
// for i := 1 to D do begin
// B [i] := Random (21) - 5;
// Write (B [i] :3, ' ');
// end;
s := 0;
c := 0;
for i := 1 to D do begin
if B [i] < 0 then
s := s + B [i];
if (B [i] > 0) and (B [i] < A) then
Inc (c);
end;
WriteLn;
WriteLn ('Сумма отрицательных чисел =', s);
WriteLn ('Количество положительных меньших ', A, ' = ', c);
ReadLn;
end.



Привет! Я могу помочь тебе с этой задачей. Для начала, давай создадим массив и заполним его с клавиатуры, а затем решим поставленные вопросы.
python# Создаем массив
arr = []
size = 30
# Заполняем массив с клавиатуры
for i in range(size):
num = int(input("Введите число: "))
arr.append(num)
# Находим сумму отрицательных элементов
negative_sum = 0
for num in arr:
if num < 0:
negative_sum += num
# Находим количество положительных элементов, не превосходящих заданное число A
A = int(input("Введите число A: "))
count = 0
for num in arr:
if 0 < num <= A:
count += 1
# Выводим результаты
print("Сумма отрицательных элементов:", negative_sum)
print("Количество положительных элементов, не превосходящих", A, ":", count)
В этом коде мы сначала создаем пустой массив arr
и заполняем его с клавиатуры с помощью цикла for
. Затем мы итерируемся по массиву для нахождения суммы отрицательных элементов и подсчета количества положительных элементов, не превосходящих заданное число A
. И, наконец, мы выводим полученные результаты.
Примечание: Обрати внимание, что я добавил обработку ввода числа A
с клавиатуры, так как это значение не было задано в условии задачи. Ты можешь ввести нужное число самостоятельно при запуске программы.


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