Question

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

Answer 1

Program n1;
var a: array[1..10] of integer;
i: integer;
sum: real;
begin
randomize;
sum:=0;
for i:=1 to 10 do begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i] mod 5<>0 then sum:=sum+a[i];
end;
writeln;
write(sum);
end.

Answer 2

Для вычисления суммы всех элементов массива, исключая элементы, кратные 5, на языке Паскаль, можно использовать следующий код:

program SumOfArrayElements;

var
  arr: array[1..10] of Integer; // Здесь предполагается, что массив содержит 10 элементов
  i, sum: Integer;

begin
  // Инициализация массива
  arr[1] := 10;
  arr[2] := 5;
  arr[3] := 8;
  arr[4] := 15;
  arr[5] := 20;
  arr[6] := 25;
  arr[7] := 30;
  arr[8] := 35;
  arr[9] := 40;
  arr[10] := 45;

// Вычисление суммы элементов массива, исключая элементы, кратные 5
  sum := 0;
  for i := 1 to 10 do
  begin
    if arr[i] mod 5 <> 0 then
      sum := sum + arr[i];
  end;

// Вывод результата
  writeln('Сумма всех элементов массива, исключая элементы, кратные 5: ', sum);
end.

В этом примере предполагается, что массив `arr` содержит 10 элементов. Вы можете изменить размер массива и инициализировать его значениями, соответствующими вашим требованиям.

Примечание: В коде используется оператор `mod`, который возвращает остаток от деления одного числа на другое. Если остаток от деления элемента массива на 5 не равен 0, то элемент не является кратным 5.

Например, если массив `arr` содержит следующие значения: ``` arr[1] = 10 arr[2] = 5 arr[3] = 8 arr[4] = 15 arr[5] = 20 arr[6] = 25 arr[7] = 30 arr[8] = 35 arr[9] = 40 arr[10] = 45 ``` То результат выполнения программы будет: ``` Сумма всех элементов массива, исключая элементы, кратные 5: 133 ```

Пожалуйста, учтите, что я предоставил пример кода на языке Паскаль, но вы можете адаптировать его под свои потребности.