Question

PASCALВ одномерном целочисленном массиве из n - элементов, вычислить сумму элементов, кратных 5.

Answer 1

Program xxx;
var a,b,i,n:integer;
begin
b:=0;
read(n);
for i:=1 to n do begin
read(a)
if a mod 5=0 then begin
b:=b+a;
end;
end;
write(b);
end.

Answer 2

Для решения данной задачи в языке программирования Pascal можно использовать следующий алгоритм:

1. Объявить целочисленный одномерный массив размером n. 2. Заполнить массив значениями, например, с помощью цикла. 3. Объявить переменную sum и инициализировать ее нулем. Она будет использоваться для хранения суммы элементов, кратных 5. 4. Пройти по всем элементам массива с помощью цикла. 5. Внутри цикла проверить, является ли текущий элемент кратным 5 с помощью операции mod. Если да, то прибавить его значение к переменной sum. 6. После окончания цикла вывести значение переменной sum, которая будет содержать сумму элементов, кратных 5.

Пример кода на Pascal:

program SumOfMultiples;
var
  arr: array of Integer;
  n, i, sum: Integer;
begin
  Write('Введите количество элементов в массиве: ');
  ReadLn(n);
  
  SetLength(arr, n);
  
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент массива ', i + 1, ': ');
    ReadLn(arr[i]);
  end;
  
  sum := 0;
  
  for i := 0 to n - 1 do
  begin
    if arr[i] mod 5 = 0 then
      sum := sum + arr[i];
  end;
  
  WriteLn('Сумма элементов, кратных 5: ', sum);
end.

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