Untitled

mail@pastecode.io avatar
unknown
plain_text
20 days ago
1.4 kB
1
Indexable
Never
program ArraySumOperations;

var
  A: array[1..10] of integer;
  i, sumAll, sumNegative, sumDivisibleBy3: integer;

begin
  // Заполнение массива A вашими значениями (примерно [5, -2, 8, 0, -3, 10, 6, -7, 9, 4])
  A[1] := 5;
  A[2] := -2;
  A[3] := 8;
  A[4] := 0;
  A[5] := -3;
  A[6] := 10;
  A[7] := 6;
  A[8] := -7;
  A[9] := 9;
  A[10] := 4;

  // 1. Вычисление суммы всех элементов массива A
  sumAll := 0;
  for i := 1 to 10 do
  begin
    sumAll := sumAll + A[i];
  end;
  writeln('Сумма всех элементов массива A: ', sumAll);

  // 2. Вычисление суммы отрицательных элементов массива A
  sumNegative := 0;
  for i := 1 to 10 do
  begin
    if A[i] < 0 then
      sumNegative := sumNegative + A[i];
  end;
  writeln('Сумма отрицательных элементов массива A: ', sumNegative);

  // 3. Вычисление суммы всех элементов массива A, которые делятся на 3
  sumDivisibleBy3 := 0;
  for i := 1 to 10 do
  begin
    if (A[i] mod 3 = 0) then
      sumDivisibleBy3 := sumDivisibleBy3 + A[i];
  end;
  writeln('Сумма всех элементов массива A, которые делятся на 3: ', sumDivisibleBy3);
end.
Leave a Comment