Question

Напишите на паскале. Задание: Найти сумму тех элементов массива А[1 .. N], которые удовлетворяют условию |Ai| < i2.

Answer 1

Const m = 100;
var a: array[1..m] of integer;
    i,n,s: integer;
begin
  write('N = ');  readln(n);
  randomize;
  writeln('массив:');
  s:=0;
  for i:=1 to n do
  begin
    a[i]:=random(-50,50);
    write(a[i],' ');
    if abs(a[i])<i*i then s:=s+a[i];   
  end; 
  writeln;
  writeln('сумма: ',s);
end.

Answer 2

Конечно, я могу помочь с этим! Вот код на языке Pascal для выполнения данной задачи:

program SumOfElements;
const
  N = 10; // Размер массива
var
  A: array[1..N] of Integer; // Объявление массива
  i, sum: Integer; // Переменные для цикла и суммы
begin
  sum := 0; // Инициализация суммы
  // Заполнение массива случайными значениями
  for i := 1 to N do
  begin
    A[i] := Random(100) - 50; // Генерация случайного числа от -50 до 49
    // Проверка условия и добавление к сумме, если условие выполняется
    if Abs(A[i]) < i*i then
    begin
      sum := sum + A[i];
    end;
  end;
  // Вывод суммы на экран
  WriteLn('Сумма элементов массива, удовлетворяющих условию: ', sum);
end.

Этот код создает массив целых чисел размером N, заполняет его случайными значениями и затем находит сумму элементов массива, удовлетворяющих условию |Ai| < i^2. Я надеюсь, что это поможет! Если у вас есть еще какие-то вопросы или запросы, пожалуйста, дайте мне знать.