Pascal код. Знайти суму елементів масиву кратних трьом
Ответы
const
N = 10; // Розмір масиву
var
arr: array[1..N] of integer; // Оголошення масиву
i, sum: integer;
begin
// Ініціалізація масиву довільними значеннями (можна змінити на власні)
for i := 1 to N do
arr[i] := Random(20); // Заповнення масиву випадковими числами від 0 до 19
sum := 0; // Ініціалізація змінної суми
// Обчислення суми елементів масиву, кратних трьом
for i := 1 to N do
begin
if arr[i] mod 3 = 0 then // Перевірка, чи є елемент кратним трьом
sum := sum + arr[i]; // Додавання кратних трьом елементів до суми
end;
// Виведення суми елементів масиву, кратних трьом
writeln('Sum of elements in the array that are multiples of three: ', sum);
end.
Відповідь:
Ось один із варіантів коду для знаходження суми елементів масиву кратних трьом:
```pascal
program SumOfMultiplesOfThree;
const
ARRAY_SIZE = 10;
type
TArray = array[0..ARRAY_SIZE - 1] of integer;
var
array: TArray;
sum: integer;
i: integer;
begin
// Ініціалізуємо масив випадковими числами
for i := 0 to ARRAY_SIZE - 1 do
array[i] := random(100);
// Ініціалізуємо суму
sum := 0;
// Проходимо по всьому масиву
for i := 0 to ARRAY_SIZE - 1 do
begin
// Якщо елемент масиву кратен трьом, додаємо його до суми
if array[i] mod 3 = 0 then
sum := sum + array[i];
end;
// Виводимо суму
writeln('Сума елементів масиву кратних трьом: ', sum);
end.
```
Цей код спочатку ініціалізує масив випадковими числами від 0 до 99. Потім він ініціалізує суму значенням 0. Після цього він проходить по всьому масиву і для кожного елемента перевіряє, чи він кратен трьом. Якщо так, то елемент додається до суми. Нарешті, сума виводиться на екран.
Ось ще один варіант коду:
```pascal
program SumOfMultiplesOfThree;
const
ARRAY_SIZE = 10;
type
TArray = array[0..ARRAY_SIZE - 1] of integer;
var
array: TArray;
sum: integer;
begin
// Ініціалізуємо масив випадковими числами
for i := 0 to ARRAY_SIZE - 1 do
array[i] := random(100);
// Ініціалізуємо суму
sum := 0;
// Знаходимо суму елементів масиву кратних трьом
for i := 0 to ARRAY_SIZE - 1 do
sum := sum + (array[i] div 3) * 3;
// Виводимо суму
writeln('Сума елементів масиву кратних трьом: ', sum);
end.
```
Цей код використовує той же принцип, що і попередній, але він використовує оператор ділення з остачею для перевірки, чи елемент масиву кратен трьом. Якщо так, то до суми додається значення елемента, помножене на 3.