Сумма четных элементов массива pascal

Создайте одномерный массив натуральных чисел. Заполните его числами с клавиатуры. Выведите на экран массив и его же в обратном порядке. Найдите сумму четных элементов массива. Подсчитайте их количество.

Заполнить случайными числами из диапазона [0,1] вещественный линейный массив из N чисел. Найти максимальное значение и его индекс (первый, если таких значений несколько).

var i, n : integer;

a : array [1..20] of real;

writeln(‘введите размерность массива n=’);

write(‘введите элементы массива А:’);

writeln(‘исходный массив А:’);

if a[i] mod 2 = 0 then s:=s+a[i];

writeln(‘сумма четных элементов =’, s);

  • Комментарии
  • Отметить нарушение

Ответ

program P_1;
var
i, n : integer;
s : real;
b : array [1..1000] of real;
begin
writeln(‘введите количество значений массива n’);
readln(n);
write(‘введите элементы массива А:’);
for i:=1 to n do
readln(a[i]);
writeln(‘введите элементы массива B’);
for i:=1 to n do
readln(b[i]);
writeln(‘первоначальный массив B’);
for i:=1 to n do
writeln(b[i]);
s:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then s:=s+b[i];
writeln(‘сумма четных значений =’, s);
end.

Задача

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

Например, в массиве [3, -5, -2, 4, -8, 0] отрицательными четными элементами являются числа -2 и -8. Их сумма равна -10.

Похожие задачи

Решение

Для решения поставленной задачи надо проверить каждый элемент массива на отрицательность и на четность. Сделать это можно в заголовке оператора ветвления, используя сложное логическое выражение с оператором and . Если текущий элемент массива отрицателен ( mod (нахождение остатка от деления). Так если при делении на 2 остаток равен нулю, то число четное.

  • С помощью функции odd ( ) , которая возвращает false (ложь), если число четное.
  • Читайте также:  Снилс указан неверно контрольная сумма

    Пример выполнения кода:

    Комментарии

    Произведение элементов в четных ячейках

    Дан массив T(7). Подсчитайте произведение элементов, находящихся в четных ячейках.

    Оцените статью
    Добавить комментарий

    Adblock detector