Untitled
unknown
plain_text
a year ago
1.4 kB
7
Indexable
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.
Editor is loading...
Leave a Comment