Question

Создать программу в паскале используя массив:Найти сумму элементов, больших числа А.

Answer 1

program xxx;

   var i, n : integer;

        a, s : real;

           b : array [1..20] of real;

begin

  writeln('введите число а=');

  readln(a);

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива B:');

  for i:=1 to n do

     readln(b[i]);

  writeln('исходный массив B:');

  for i:=1 to n do

     writeln(b[i]);

  s:=0;

  for i:=1 to n do

    if b[i] > a then s:=s+b[i];

  writeln('сумма элементов =', s);

  readln

end.

Answer 2

program P_1;
var
i, n : integer;
a, s : real;
b : array [1..1000] of real;
begin
writeln('введите число а');
readln(a);
writeln('введите количество значений массива n');
readln(n);
write('введите элементы массива B');
for i:=1 to n do
readln(b[i]);
writeln('первоначальный массив B');
for i:=1 to n do
writeln(b[i]);
s:=0;
for i:=1 to n do
if b[i] > a then s:=s+b[i];
writeln('сумма значений =', s);
end.

Answer 3

Конечно, давайте создадим простую программу на Pascal, которая находит сумму элементов массива, больших заданного числа A. В данном примере я буду использовать стандартный синтаксис Pascal и предполагаю, что вы уже знакомы с основами программирования на этом языке.

program SumGreaterThanA;

const
  N = 5; // Размер массива
  A = 10; // Заданное число A

var
  arr: array[1..N] of Integer; // Объявление массива
  i, sum: Integer; // Переменные для цикла и суммы

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

// Нахождение суммы элементов больших числа A
  sum := 0;
  for i := 1 to N do
  begin
    if arr[i] > A then
      sum := sum + arr[i];
  end;

// Вывод результата
  writeln('Сумма элементов массива, больших ', A, ': ', sum);

readln; // Ждем, пока пользователь нажмет Enter
end.

Эта программа сначала запрашивает у пользователя ввод элементов массива, затем вычисляет сумму элементов, которые больше заданного числа A, и выводит результат. Вы можете изменить размер массива (N) и значение A в соответствии с вашими потребностями.