Question

Нужно очень срочно решить данные задачи. Буду очень признателен. 1. Составьте программу ввода и вывода массива: 3,4,-9,8,1,-6,2,-5,-1,7,5,9.2. Составьте блок-схему алгоритма и программу вычисления в массиве А(10) количества отрицательных эллементов.3. Составьте программу вычисления в массиве В(8) суммы четных элементов.

Answer 1

1)
Ввод чисел в массив:
program vvod_mass;
var
a: array[1..12] of integer;
i: integer;
begin
for i:=1 to 12 do
begin
write('a[', i, ']='); readln(a[i]);
end;
end.
2)
program otric;
var
a: array[1..10] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 10 do if a[i]<0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.
3)
program chetniy;
var
a: array[1..8] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 8 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 8 do if a[i] mod 2 = 0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.

Answer 2

1. Программа ввода и вывода массива:

# Ввод массива
array = [3, 4, -9, 8, 1, -6, 2, -5, -1, 7, 5, 9]

# Вывод массива
print("Массив:", array)

2. Блок-схема алгоритма и программа вычисления количества отрицательных элементов в массиве A(10):

# Вычисление количества отрицательных элементов
count_negative = 0
for num in array:
    if num < 0:
        count_negative += 1

# Вывод количества отрицательных элементов
print("Количество отрицательных элементов в массиве A(10):", count_negative)

3. Программа вычисления суммы четных элементов в массиве B(8):

# Ввод массива B(8)
array_b = [2, 4, 6, 8, 10, 12, 14, 16]

# Вычисление суммы четных элементов
sum_even = 0
for num in array_b:
    if num % 2 == 0:
        sum_even += num

# Вывод суммы четных элементов
print("Сумма четных элементов в массиве B(8):", sum_even)

Надеюсь, это поможет вам решить задачи!