1.Найти количество натуральных чисел, не превышающих 100 и кратных 5. 2.Создать массив А из 10 элементов,...

Давайте по порядку.

1. Найти количество натуральных чисел, не превышающих 100 и кратных 5.

Натуральные числа, кратные 5, имеют вид (5k), где (k) — натуральное число. Чтобы найти количество таких чисел, нужно определить максимальное значение (k), при котором (5k \leq 100).

Решим неравенство:

[ 5k \leq 100 ]

Делим обе стороны на 5:

[ k \leq 20 ]

Таким образом, (k) может принимать значения от 1 до 20. Это значит, что мы можем записать 20 натуральных чисел, кратных 5, не превышающих 100. Эти числа: 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100.

Ответ: 20 натуральных чисел, не превышающих 100 и кратных 5.

2. Создать массив А из 10 элементов, принадлежащих промежутку (-50;50). Вывести полученный массив на экран. Подсчитать сумму положительных и количество отрицательных элементов массива.

Для решения этой задачи на языке Pascal, можно использовать следующий код:

program ArrayExample;

uses crt;

const
  N = 10; // Размер массива
var
  A: array[1.N] of Integer; // Объявляем массив из 10 элементов
  i, sumPositive, countNegative: Integer;
begin
  Randomize; // Инициализация генератора случайных чисел
  sumPositive := 0; // Обнуляем сумму положительных элементов
  countNegative := 0; // Обнуляем счетчик отрицательных элементов

  // Заполнение массива и подсчет суммы и количества
  for i := 1 to N do
  begin
    A[i] := Random(101) - 50; // Генерация случайного числа в диапазоне (-50, 50)
    Write(A[i], ' '); // Вывод элементов массива
    // Подсчет суммы положительных и количества отрицательных
    if A[i] > 0 then
      sumPositive := sumPositive + A[i]
    else if A[i] < 0 then
      countNegative := countNegative + 1;
  end;

  // Печать результатов
  Writeln; // Переход на новую строку
  Writeln('Сумма положительных элементов: ', sumPositive);
  Writeln('Количество отрицательных элементов: ', countNegative);
  
  Readln; // Ожидание нажатия клавиши
end.

Объяснение кода:

1. Мы объявляем массив A размером 10.
2. Используем Randomize для инициализации генератора случайных чисел.
3. В цикле for заполняем массив случайными числами в диапазоне от -50 до 50.
4. Также в этом цикле подсчитываем сумму положительных чисел и количество отрицательных.
5. В конце выводим сам массив, сумму положительных элементов и количество отрицательных.

Этот код выполнит все необходимые действия в соответствии с заданием.

Развернутый ответ:

Задача 1: Найти количество натуральных чисел, не превышающих 100 и кратных 5.

Число кратно 5, если оно делится на 5 без остатка. Нам нужно найти такие числа от 1 до 100 включительно.

Анализ задачи:

• Натуральные числа — это числа, начиная с 1, то есть ( N = {1, 2, 3, \dots }).
• Числа, кратные 5, образуют арифметическую прогрессию: 5, 10, 15, ., 100.

• Формула для нахождения количества членов арифметической прогрессии: [ n = \frac{a_n - a_1}{d} + 1, ] где ( a_n ) — последний член прогрессии, ( a_1 ) — первый член, ( d ) — разность прогрессии (в нашем случае ( d = 5 )).

  Подставляем: [ n = \frac{100 - 5}{5} + 1 = 20. ]

Таким образом, количество натуральных чисел, не превышающих 100 и кратных 5, равно 20.

Код на Паскале:

program Task1;
var
  count, i: integer;
begin
  count := 0;
  for i := 1 to 100 do
    if i mod 5 = 0 then
      count := count + 1;
  writeln('Количество чисел, кратных 5, от 1 до 100: ', count);
end.

Задача 2: Создать массив A из 10 элементов, принадлежащих промежутку (-50;50). Вывести массив на экран. Подсчитать сумму положительных и количество отрицательных элементов массива.

Анализ задачи:

1. Создаем массив A из 10 случайных целых чисел в диапазоне (-50;50).
2. Для генерации случайных чисел используется функция Random. Однако диапазон этой функции в Паскале нужно преобразовать, чтобы получить числа в пределах (-50;50).
3. Выводим массив на экран.
4. Проходим по массиву:
   • Если элемент положительный, добавляем его к сумме положительных чисел.
   • Если элемент отрицательный, увеличиваем счетчик отрицательных чисел.

Код на Паскале:

program Task2;
const
  N = 10;
var
  A: array[1.N] of integer;
  i, negCount, posSum: integer;
begin
  Randomize;  // Инициализируем генератор случайных чисел
  negCount := 0;  // Счетчик отрицательных чисел
  posSum := 0;    // Сумма положительных чисел
  
  // Заполнение массива случайными числами в диапазоне (-50;50)
  writeln('Массив A:');
  for i := 1 to N do
  begin
    A[i] := Random(101) - 50;  // Random(101) возвращает числа от 0 до 100, вычитаем 50
    write(A[i]:4);  // Вывод элемента массива с отступом
    if A[i] > 0 then
      posSum := posSum + A[i]  // Если положительное число, добавляем к сумме
    else if A[i] < 0 then
      negCount := negCount + 1;  // Если отрицательное число, увеличиваем счетчик
  end;
  
  writeln;  // Переход на новую строку
  writeln('Сумма положительных элементов массива: ', posSum);
  writeln('Количество отрицательных элементов массива: ', negCount);
end.

Разбор кода:

1. Инициализация массива:

    A[i] := Random(101) - 50;
   

   Генерируем случайное число от 0 до 100 (функция Random(101)), затем вычитаем 50, чтобы получить диапазон от -50 до 50 включительно.

2. Подсчет положительных и отрицательных чисел:

   • Проверяем каждый элемент массива:

     if A[i] > 0 then
       posSum := posSum + A[i]
     else if A[i] < 0 then
       negCount := negCount + 1;
     

3. Вывод результатов:

   • Выводим массив, сумму положительных чисел и количество отрицательных чисел.

Пример вывода программы:

Для Задачи 1:

Количество чисел, кратных 5, от 1 до 100: 20

Для Задачи 2 (пример вывода):

Массив A:
 -5  12 -34  45 -20   7   0 -11  23 -49
Сумма положительных элементов массива: 87
Количество отрицательных элементов массива: 6

Обратите внимание, что результаты для задачи 2 будут разными при каждом запуске программы из-за использования случайных чисел.