3. Разработайте программу для случайного заполнения 20 элементов массива D целыми числами в диапазоне от 0 до 35, и вывода их на экран. 4. Имеется одномерный массив В размером 10 элементов. Записи массива - целые числа от 0 до 100. Напишите программу, которая будет вычислять сумму элементов массива, которые превышают 8 и делятся на 12. Программа должна быть написана на языке программирования Паскаль.
Milochka
Конечно! Вот решение для задачи №3:
Для решения этой задачи нам понадобится язык программирования Паскаль. Мы можем использовать цикл for для заполнения массива D случайными числами и вывода их на экран. Вот программный код, который выполняет указанные требования:
В данном примере, мы используем массив `D` размером 20 элементов типа Integer для хранения случайных чисел. Функция `randomize` инициализирует генератор случайных чисел. В цикле `for` мы заполняем массив и выводим каждый элемент на экран с помощью функции `writeln`.
Теперь перейдем к задаче №4:
В этом примере мы использовали массив `B` размером 10 элементов типа Integer для хранения чисел от 0 до 100. Затем мы вычисляем сумму элементов, которые удовлетворяют условиям "превышают 8" и "делятся на 12", используя цикл `for`. Если текущий элемент массива соответствует условиям, мы добавляем его к переменной `sum`. В результате, на экран выводится сумма этих элементов.
Надеюсь, данное пошаговое решение помогло вам понять задачи и их решения. Если у вас возникнут еще вопросы, не стесняйтесь задавать!
Для решения этой задачи нам понадобится язык программирования Паскаль. Мы можем использовать цикл for для заполнения массива D случайными числами и вывода их на экран. Вот программный код, который выполняет указанные требования:
pascal
program RandomArray;
var
D: array[1..20] of Integer;
i: Integer;
begin
randomize; // Инициализация генератора случайных чисел
// Заполнение массива случайными числами и вывод на экран
for i := 1 to 20 do
begin
D[i] := random(36); // Генерация случайного числа от 0 до 35
writeln(D[i]);
end;
readln;
end.
В данном примере, мы используем массив `D` размером 20 элементов типа Integer для хранения случайных чисел. Функция `randomize` инициализирует генератор случайных чисел. В цикле `for` мы заполняем массив и выводим каждый элемент на экран с помощью функции `writeln`.
Теперь перейдем к задаче №4:
pascal
program SumArray;
var
B: array[1..10] of Integer;
i, sum: Integer;
begin
// Заполнение массива B целыми числами от 0 до 100
for i := 1 to 10 do
B[i] := random(101); // Генерация случайного числа от 0 до 100
// Вычисление суммы элементов массива, которые превышают 8 и делятся на 12
sum := 0;
for i := 1 to 10 do
begin
if (B[i] > 8) and (B[i] mod 12 = 0) then
sum := sum + B[i];
end;
writeln("Сумма элементов массива, которые превышают 8 и делятся на 12: ", sum);
readln;
end.
В этом примере мы использовали массив `B` размером 10 элементов типа Integer для хранения чисел от 0 до 100. Затем мы вычисляем сумму элементов, которые удовлетворяют условиям "превышают 8" и "делятся на 12", используя цикл `for`. Если текущий элемент массива соответствует условиям, мы добавляем его к переменной `sum`. В результате, на экран выводится сумма этих элементов.
Надеюсь, данное пошаговое решение помогло вам понять задачи и их решения. Если у вас возникнут еще вопросы, не стесняйтесь задавать!
Знаешь ответ?