Question

Помогите! Дан массив от 1 до 10. найти сумму четных элементов массива. ПАСКАЛЬ 9 КЛАСС

Answer 1

Начало писать не буду.. Там сё элементарно..
...
readln(a);
if(a mod 2=0) then
s:=s+a;
end;
writeln(s);
End.

Answer 2

Чтобы найти сумму четных элементов в массиве от 1 до 10, можно использовать следующий алгоритм:

1. Создайте массив, содержащий числа от 1 до 10. В языке Pascal это можно сделать следующим образом:

   var
     arr: array[1..10] of Integer;
   begin
     for i := 1 to 10 do
       arr[i] := i;
   end.
   

2. Объявите переменную, которая будет хранить сумму четных элементов, и инициализируйте ее нулем:

   var
     arr: array[1..10] of Integer;
     sum: Integer;
   begin
     sum := 0;
     for i := 1 to 10 do
       arr[i] := i;
   end.
   

3. Пройдитесь по всем элементам массива и проверьте, является ли текущий элемент четным числом. Если да, добавьте его к переменной суммы:

   var
     arr: array[1..10] of Integer;
     sum: Integer;
   begin
     sum := 0;
     for i := 1 to 10 do
     begin
       arr[i] := i;
       if arr[i] mod 2 = 0 then
         sum := sum + arr[i];
     end;
   end.
   

4. Выведите значение переменной суммы, чтобы увидеть результат:

   var
     arr: array[1..10] of Integer;
     sum: Integer;
   begin
     sum := 0;
     for i := 1 to 10 do
     begin
       arr[i] := i;
       if arr[i] mod 2 = 0 then
         sum := sum + arr[i];
     end;
     writeln('Сумма четных элементов: ', sum);
   end.
   

Теперь, если запустить эту программу на выполнение, она выведет сумму четных элементов массива от 1 до 10.