Question

В массиве из 12 элементов, заданных по формуле F[i]=i^2-5i-14 Найдите сумму положительных значений (pascal abc)

Answer 1

Program morebrains;

const

 n = 12; {Количество элементов массива}

var  

 F:array[1..n] of integer;

 s:string;

 i,sum:integer;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(42) end;

{заполняем массив}

 writeln;  

 for i:=1 to n do F[i]:=i*i-5*i-14;

{Ищем сумму положительных}

 sum:=0;

 for i:=1 to n do

   if F[i]>0 then sum:=sum+F[i];

{Выводим сумму}

 writeln;

 writeln('Сумма положительных элементов равна ',sum);

end.

Answer 2

Для нахождения суммы положительных значений в массиве, заданном по формуле F[i] = i^2 - 5i - 14, следует выполнить следующие шаги:

1. Создать массив из 12 элементов, рассчитав значение для каждого индекса i, используя формулу F[i] = i^2 - 5i - 14.
2. Произвести подсчет суммы всех положительных элементов в массиве.

Давайте выполним это в Pascal ABC:

pascalCopy code
program SumOfPositiveValues;

const
  n = 12; // Количество элементов в массиве

var
  F: array[1..n] of Integer; // Объявляем массив из 12 элементов
  i, sum: Integer;

begin
  sum := 0; // Инициализируем переменную для хранения суммы

  // Заполняем массив и вычисляем сумму положительных значений
  for i := 1 to n do
  begin
    F[i] := i * i - 5 * i - 14;
    if F[i] > 0 then
      sum := sum + F[i];
  end;

  // Выводим результат
  WriteLn('Массив F:');
  for i := 1 to n do
    Write(F[i], ' ');
  WriteLn;
  WriteLn('Сумма положительных значений: ', sum);
end.

Программа создаст массив F, рассчитает значение для каждого индекса i и выведет на экран значения массива F, а также сумму положительных элементов в этом массиве.