Question

9 класс фастом Написать программу, заполняющую массив 30 случайными числами [-10..80]. Вывести массив. Определить в этом массиве сумму чисел, кратных 3 Определить количество отрицательных чисел. Определить в этом массиве номер элемента, равного 0

Answer 1

Var a: array [1..30] of integer;

sum3,otr,i,j:integer;

begin

randomize;

sum3:=0;

otr:=0;

for i:=1 to 30 do  

 begin

   a[i]:=random(91)-10;

   write(a[i]:4);

   if a[i] mod 3 = 0 then sum3:=sum3+a[i];

   if a[i]<0 then inc(otr);

 end;

 writeln;

 writeln('Sum: ',sum3,'   <0:',otr);

 for i:=1 to 30 do

   if a[i]=0 then  

     begin

      writeln('№',i,'=0');

     end;

end.

Answer 2

Конечно, я могу помочь вам написать программу, которая выполняет указанные задачи. Вот пример программы на языке Python:

pythonCopy code
import random

# Создаем пустой массив
numbers = []

# Заполняем массив случайными числами
for _ in range(30):
    numbers.append(random.randint(-10, 80))

# Выводим массив
print("Массив случайных чисел:", numbers)

# Вычисляем сумму чисел, кратных 3
sum_multiple_of_3 = 0
for num in numbers:
    if num % 3 == 0:
        sum_multiple_of_3 += num

# Выводим сумму чисел, кратных 3
print("Сумма чисел, кратных 3:", sum_multiple_of_3)

# Определяем количество отрицательных чисел
count_negative_numbers = 0
for num in numbers:
    if num < 0:
        count_negative_numbers += 1

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

# Определяем номер элемента, равного 0
index_of_zero = -1
for i, num in enumerate(numbers):
    if num == 0:
        index_of_zero = i
        break

# Выводим номер элемента, равного 0
if index_of_zero != -1:
    print("Номер элемента, равного 0:", index_of_zero)
else:
    print("В массиве нет элементов, равных 0.")

Эта программа создает массив numbers размером 30 и заполняет его случайными числами в диапазоне от -10 до 80. Затем она выводит массив, вычисляет сумму чисел, кратных 3, определяет количество отрицательных чисел и находит номер элемента, равного 0.