Как найти сумму четных чисел паскаль

Перейти к содержанию

const N = 10;

var

    a: array[1..N] of integer;

    i: byte;

    sum: integer;

begin

    randomize;

    for i:=1 to N do a[i]:=random(10)-5;

    for i:=1 to N do write(a[i]:4);

    writeln;

    sum := 0;

    for i:=1 to N do begin

        if (a[i]>0) and (odd(a[i])=false) then

            sum := sum + a[i];

    end;

    writeln(sum);

end.

   2  -5   2  -1  -4  -5  -5   3   3  -1

4

#include 

#define N 10


main() {

    int a[N];

    int i, sum;

    srand(time(NULL));

    for (i=0; i< N; i++) {

        a[i] = rand() % 10 - 5;

        printf("%4d", a[i]);

    }

    printf("n");

    
    sum = 0;

    for (i=0; i< N; i++)

        if (a[i] >= 0 && a[i]%2==0) 

            sum += a[i];

    printf("%dn",sum);

}

  -1   4  -5   4  -5  -1   0   1  -2  -5

8

from random import random

N = 10

arr = [0] * N

for i in range(N):

    arr[i] = int(random() * 10) - 5

print(arr)

s = 0

for i in range(N):

    if arr[i] >= 0 and arr[i]%2 == 0:

        s += arr[i]

print(s)

[2, 2, -2, -3, -3, 1, 4, 4, -5, 2]

14

алг сумма чет полож

нач

  цел N = 10

  цел таб arr[1:N]

  цел i,s

  нц для i от 1 до N

    arr[i] := irand(-5,5)

    вывод arr[i]:3

  кц

  вывод нс


  s := 0

  нц для i от 1 до N 

    если arr[i] > 0 и mod(arr[i],2) = 0 то

       s := s + arr[i]

    все

  кц

  вывод s

кон

 -1 -3  5  2  3  4  0 -4  3 -5

6

N = 10

dim arr(N)

for i=0 to N-1

    arr[i] = int(rand*10) - 5

    print arr[i] + " ";

next i

print


s = 0

for i=0 to N-1

        if arr[i] > 0 and arr[i]%2 = 0 then

               s = s + arr[i]

        endif

next i

print s

-4 -5 0 -4 -3 -5 2 4 0 -1 

6

Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают
30 000.

Программа должна вывести одно число – СУММУ чисел.

Решение:

В начале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Суммируем: То что было в сумме плюс очередной элемент.

Var a, i, sum, n: integer;
begin
  read(n);
  sum:=0;
  for i:=1 to n do
  begin
    read(a);
    sum:= sum + a;
  end;
Writeln(sum);
end.

Нахождение СУММЫ чисел КРАТНЫХ 4.

Задача 2

Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, КРАТНЫХ 4. В последовательности всегда имеется число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают
30 000.

Программа должна вывести одно число – СУММУ чисел, кратных 4.

Решение:

В начале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент кратный 4, то мы суммируем: то что было в сумме плюс наш элемент.

var a, i, sum, n: integer;
begin
  read(n);
  sum:=0;
  for i:=1 to n do
  begin
  read(a);
  if a mod 4 = 0
     then sum:= sum + a;
  end;
  Writeln(sum);
end.

Нахождение СУММЫ чисел, ОКАНЧИВАЮЩИХСЯ на 2.

Задача 9

Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2. В последовательности всегда имеется число, ОКАНЧИВАЮЩЕЕСЯ на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают
30 000.

Программа должна вывести одно число – СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2.

Решение:

Вначале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который оканчивается на 2 то мы суммируем: то что было в сумме плюс наш элемент.

var a, i, sum, n: integer;
begin
  read(n);
  sum:=0;
  for i:=1 to n do
  begin
    read(a);
    if a mod 10 = 2 then
      sum:= sum + a;
  end;
  Writeln(sum);
end.

Нахождение СУММЫ чётных чисел.
Задача 3

Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чётных чисел. В последовательности всегда имеется чётное число. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают
30 000.

Программа должна вывести одно число – СУММУ чётных чисел.

Решение:

Вначале СУММА равна нулю. Перебираем в ЦИКЛЕ числа. Если нам попался чётный элемент (остаток от деления на 2 равен нулю), то мы суммируем: то что было в сумме плюс наш элемент.

var a, i, sum, n: integer;
begin
  read(n);
  sum:=0;
  for i:=1 to n do
  begin
    read(a);
    if a mod 2 = 0 then
      sum:= sum + a;
  end;
  Writeln(sum);
end.

ЕГЭ по информатике 2021 – Задание 1 (Особые точки)

Условие задачи : Найти сумму элементов массива с четными номерами, содержащего N элементов. Элементы вводятся с клавиатуры.

Сложность : легкая.

Решение задачи

Для того чтобы найти сумму четных элементов массива кроме обычного массива и цикла, тут нам понадобиться еще и условие которое будет проверять наше введенное число на четность.

Первое что мы сделаем мы создадим свой тип данных как и зачем читайте (тут) :

type

massiv =
array
[
1..1000
]
of
integer
;

Теперь какие нам нужны переменные ?

var

mass : massiv;

n , i, summa :
integer
;

Теперь просим пользователя ввести длину массива, и присваиваем нашей сумме 0, для корректной работы.

write
(
'Введите кол-во элементов : '
);readln(n);
summa :=
0
;

Ну теперь стоит сделать цикл, пока что простой в котором мы будем просить пользователя ввести число :

for
i:=
1
to
n
do

begin

write
(
'Введите '
,i,
' элемент : '
); readln(mass[i]);

summa := summa + mass[i];
// считаем сумму

end
;

Т.е. в этом цикле мы считаем сумму всех чисел которые вводим, но нам нужны только четные. Как правильно определить четность числа вы можете посмотреть (тут)

Нечего трудного в этом нет, просто используем операцию mod, которая ищет остаток от деления.

write
(
'Введите '
,i,
' элемент : '
); readln(mass[i]);
if
(mass[i]
mod
2
=
0
)
then

summa := summa + mass[i]
// считаем сумму
else

writeln
(
'Число '
, mass[i],
' нечетное, к сумме прибавлено не будет'
);

Т.е. когда мы вводим число, после этого сразу идет условие, если введенное число четное, то мы прибавляем его к сумме, если нет то выводи сообщение, и сумма при этом не меняется.

Вот и всё решение задачи. Сумма четных элементов массива найдена.

Весь код программы

uses
crt;
type

massiv =
array
[
1..1000
]
of
integer
;
var

mass : massiv;

n , i, summa :
integer
;
begin

clrscr;

write
(
'Введите кол-во элементов : '
);readln(n);

summa :=
0
;

for
i:=
1
to
n
do

begin

write
(
'Введите '
,i,
' элемент : '
); readln(mass[i]);

if
(mass[i]
mod
2
=
0
)
then

summa := summa + mass[i]
// считаем сумму

else

writeln
(
'Число '
, mass[i],
' нечетное, к сумме прибавлено не будет'
);

end
;

writeln
(
'Сумма четных эл-тов равна : '
, summa);

readln;
// чтобы программы не закрывалась.
end
.

Предыдущая

ПрограммированиеЗадачи по Pascal. Произведение нечетных элементов массива.

Следующая

ПрограммированиеЗадачи по Pascal. Найти среднее арифметическое массива.