Question

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

Answer 1

Ответ:

var m:array[1..15] of integer;

  i,a,b,s:integer;

begin

writeln('Введите "a"');

readln(a);

writeln('Введите "b"');

readln(b);

s:=0;

for i:=1 to 15 do begin

 read(m[i]);

  if (m[i]>b) and (m[i]<a) then begin

   print(i);

   s+=m[i];

 end;

end;

writeln('Сумма = ', s);

end.

Answer 2

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

pascalCopy code
program ArrayProcessing;
const
  N = 15; // Количество элементов в массиве
var
  arr: array[1..N] of Integer; // Объявляем массив из 15 целых чисел
  a, b: Integer; // Переменные a и b
  i, sum: Integer; // Переменные для цикла и подсчета суммы
begin
  // Вводим значения a и b с клавиатуры
  Write('Введите значение a: ');
  Readln(a);
  Write('Введите значение b: ');
  Readln(b);

  // Вводим элементы массива с клавиатуры
  for i := 1 to N do
  begin
    Write('Введите элемент массива arr[', i, ']: ');
    Readln(arr[i]);
  end;

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

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

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

  // Ждем нажатия клавиши перед завершением программы
  Readln;
end.

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