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

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

Ответ:
program ExampleNNNN;
uses
SysUtils; // зависит от того где объявлено IntToStr в вашей версии Паскаля
var
a: array [1..30] of Integer;
i, c, s: Integer;
e: string;
begin
Randomize;
for i := Low (a) to High (a) do begin
a [i] := Random (81);
Write (a [i], ' ');
end;
s := 0;
c := 0;
e := '';
for i := Low (a) to High (a) do begin
if a [i] mod 3 = 0 then
s := s + a [i];
if a [i] < 0 then
Inc (c);
if a [i] = 0 then
e := e + IntToStr (a [i]) + ', ';
end;
WriteLn;
WriteLn ('Сумма чисел кратных 3 = ', s);
WriteLn ('Количество отрицательных чисел = ', c);
if e <> '' then
WriteLn ('Номера элементов = 0: ', e)
else
WriteLn ('Элементов равных нулю нет', e);
ReadLn;
end.
Объяснение:
не понятно какая размерность массива и какими числами его заполнять. если что, это меняется в этих операторах:
a: array [1..30] of Integer;
a [i] := Random (81);



Вы можете использовать язык программирования Python для выполнения этой задачи. Вот пример программы, которая создает массив из 30 случайных чисел, выполняет указанные задачи и выводит результаты:
pythonimport random
# Создаем массив из 30 случайных чисел в диапазоне от 0 до 80
array = [random.randint(0, 80) for _ in range(30)]
# Выводим массив
print("Массив случайных чисел:")
print(array)
# Определяем сумму чисел, кратных 3
sum_of_multiples_of_3 = sum(x for x in array if x % 3 == 0)
print("Сумма чисел, кратных 3:", sum_of_multiples_of_3)
# Определяем количество отрицательных чисел
count_of_negatives = sum(1 for x in array if x < 0)
print("Количество отрицательных чисел:", count_of_negatives)
# Определяем номер элемента, равного 0 (если такой элемент есть)
if 0 in array:
index_of_zero = array.index(0)
print("Номер элемента, равного 0:", index_of_zero)
else:
print("В массиве нет элементов, равных 0.")
Этот код создает массив из случайных чисел, выполняет указанные операции и выводит результаты.


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







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