Question

Даю 40 баллов ⬛ Помогите пожалуйста с информатикой, программа на Паскаль...Дан массив А(15) элементы вводятся с клавиатуры: 1. Найти сумму тех элементов, которые кратны 32. Посчитать количество элементов которые <80 но >203. Найти min элемент. ЗАРАНЕЕ СПАСИБО ❤️​

Answer 1

Ответ:

program mas;

var

 number_month, i, amount, quantity, min: integer;

 A: array [1..15] of integer;

begin

 for i := 1 to 15 do  

 begin

   read(A[i]);

 end;

 min := A[1];

 for i := 1 to 15 do  

 begin

   if (A[i] mod 3 = 0) then

     amount := amount + A[i];

   if (A[i] > 20) and (A[i] < 80) then

     inc(quantity);

   if (A[i] < min) then

     min := A[i];

 end;

 writeln('Минимум: ', min);

 writeln('Сумма элементов, кратных 3: ', amount);

 writeln('Количество чисел > 20 и < 80: ', quantity);

end.

Объяснение:

program mas;  // Название программы

var  

 i, amount, quantity, min: integer; // Целочисленные переменные:

• i - счётчик для for
• amount - сумма элементов, кратных 3
• quantity - количество элементов > 20 и < 80
• min - минимальный элемент массива

 A: array [1..15] of integer;  // Массив целочисленного типа А с индексами от 1 до 15

begin  // Начало программы

 amount := 0;  // Переменная, отвечающая за сумму элементов, кратных 3, равна 0

 quantity := 0; // Переменная, отвечающая за количество элементов >20 и <80, равна 0

 for i := 1 to 15 do  // Цикл для ввода пятнадцати чисел в массив

 begin  // Начало цикла

   read(A[i]);  // Ввод значений с клавиатуры

 end;  // Конец цикла

 min := A[1];  // Значение переменной, отвечающей за минимальный элемент массива, равен первому элементу массива

 for i := 1 to 15 do  // Цикл для прогона всех чисел массива

 begin  // Начало цикла

   if (A[i] mod 3 = 0) then  // Если значение элемента массива с индексом i делится на 3 без остатка, тогда

     amount := amount + A[i];  // Сумма = сумма + значение элемента массива с индексом i

   if (A[i] > 20) and (A[i] < 80) then  // Если значение элемента массива с индексом i > 20 И < 80, тогда

     inc(quantity);  // Увеличиваем значение переменной quantity на 1

   if (A[i] < min) then  // Если значение элемента массива с индексом i < значения переменной min, тогда

     min := A[i];  // Значение переменной min = значению элемента массива с индексом i

 end;  // Конец цикла

 writeln('Минимум: ', min);  // Вывод минимума

 writeln('Сумма элементов, кратных 3: ', amount);  // Вывод суммы элементов, попадающих под условие

 writeln('Количество чисел > 20 и < 80: ', quantity);  // Вывод количества чисел, попадающих под условие

end. // Конец программы

Answer 2

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

pascalCopy code
program ArrayOperations;

const
  N = 15;

var
  A: array[1..N] of Integer;
  i, sumMultiple32, countRange, minElement: Integer;

begin
  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to N do
  begin
    write('A[', i, ']: ');
    readln(A[i]);
  end;

  // Инициализация переменных
  sumMultiple32 := 0;
  countRange := 0;
  minElement := A[1]; // Предполагаем, что первый элемент - минимальный

  // Обход массива и выполнение задач
  for i := 1 to N do
  begin
    // Нахождение суммы элементов, кратных 32
    if A[i] mod 32 = 0 then
      sumMultiple32 := sumMultiple32 + A[i];

    // Подсчет количества элементов в диапазоне (80, 203)
    if (A[i] < 80) and (A[i] > 203) then
      countRange := countRange + 1;

    // Нахождение минимального элемента
    if A[i] < minElement then
      minElement := A[i];
  end;

  // Вывод результатов
  writeln('Сумма элементов, кратных 32: ', sumMultiple32);
  writeln('Количество элементов в диапазоне (80, 203): ', countRange);
  writeln('Минимальный элемент: ', minElement);
end.

Скопируйте этот код в вашу среду программирования на Паскале и выполните его. Программа запросит вас ввести 15 элементов массива, а затем выведет результаты выполнения задач.

Удачи в изучении программирования! Если у вас есть еще вопросы или понадобится дополнительная помощь, не стесняйтесь спрашивать.