Question

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

Answer 1

Program mathlover12;

Program mathlover12;

const

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

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-4*i-5;

{Ищем сумму отрицательных}

 sum:=0;

 for i:=1 to n do

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

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

 writeln; writeln;

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

end.

Answer 2

Для решения этой задачи нужно пройти в цикле по всем элементам массива и найти те, которые меньше нуля, а затем найти их сумму. Вот как это можно сделать на Pascal ABC:

lessCopy code
program SumOfNegativeValues;

var
  F: array[1..10] of integer;
  i, sum: integer;

begin
  // заполнение массива
  for i := 1 to 10 do
    F[i] := i * i - 4 * i - 5;
  
  // вычисление суммы отрицательных элементов
  sum := 0;
  for i := 1 to 10 do
    if F[i] < 0 then
      sum := sum + F[i];
  
  writeln('Сумма отрицательных элементов: ', sum);
end.

Сначала мы заполняем массив F элементами, вычисленными по заданной формуле. Затем мы проходим в цикле по всем элементам массива и проверяем, является ли элемент отрицательным. Если да, то добавляем его значение к переменной sum. В конце программы выводим значение sum.