Question

Составьте на языке программирования Паскаль программу для обработки массива из 15 чисел. Значения элементов массива задайте путём ввода с клавиатуры. Входные данные придумайте самостоятельно. Вычислите сумму элементов массива, не равных нулю, больших b и меньших a. Напечатайте номера элементов, которые удовлетворяют поставленному условию. Значения переменных a и b задайте самостоятельно. Заранее спасибо!

Answer 1

Ответ на фотке,удачи

Answer 2

Конечно, вот пример программы на языке Pascal для обработки массива из 15 чисел:

pascalCopy code
program ArrayProcessing;
var
  a, b: Integer;
  arr: array[1..15] of Integer;
  i, sum: Integer;
begin
  // Ввод значений a и b
  Write('Введите значение a: ');
  Readln(a);
  Write('Введите значение b: ');
  Readln(b);
  
  // Ввод элементов массива
  for i := 1 to 15 do
  begin
    Write('Введите элемент массива №', i, ': ');
    Readln(arr[i]);
  end;

  // Инициализация суммы
  sum := 0;

  // Обработка массива и вычисление суммы элементов, удовлетворяющих условию
  Write('Номера элементов, удовлетворяющих условию: ');
  for i := 1 to 15 do
  begin
    if (arr[i] <> 0) and (arr[i] > b) and (arr[i] < a) then
    begin
      Write(i, ' ');
      sum := sum + arr[i];
    end;
  end;

  // Вывод суммы
  Writeln;
  Writeln('Сумма элементов, удовлетворяющих условию: ', sum);

  Readln;
end.

В данной программе мы сначала вводим значения переменных a и b, а затем заполняем массив из 15 чисел с клавиатуры. Затем мы обходим массив, находим элементы, удовлетворяющие заданным условиям (не равным нулю и находящимся между a и b), выводим их номера и вычисляем сумму таких элементов.