Задать вопрос
2 ноября, 05:08

В цикле for взять элемены массива какие там есть и посчитать сумму чётных элементов массива размер массива 10

решить в паскаль абс

+2
Ответы (1)
  1. 2 ноября, 06:10
    0
    Если масив заполнить нужно рандомно:

    program wk;

    var i, s:integer; mas:array [1 ... 10] of integer;

    begin

    s:=0;

    for i:=1 to 10 do

    begin

    mas[i]:=random (21) - 20;

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

    end;

    writeln ('S=', s)

    end.

    Если масив заполняется с клавиатуры:

    program wk;

    var i, s:integer; mas:array [1 ... 10] of integer;

    begin

    s:=0;

    for i:=1 to 10 do

    begin

    readln (mas[i]) ;

    if (mas[i] mod 2) = 0 then s:=s+mas[i];

    end;

    writeln ('S=', s)

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «В цикле for взять элемены массива какие там есть и посчитать сумму чётных элементов массива размер массива 10 решить в паскаль абс ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
1. Возвести в квадрат все элементы массива A. Размер массива и значения элементов массива - произвольные. 2. Увеличить на 4 все элементы в первой половине массива A (считать, что в массиве чётное число элементов).
Ответы (1)
Помогите решить задачи в паскале. 1) найти сумму положительных элементов массива. 2) найти сумму четных элементов массива. 3) найти сумму всех четных элементов массива, стоящих на четных местах.
Ответы (1)
1) Найти сумму отрицательных элементов массива целых чисел. Размерность массива 10. Заполнение массива осуществить случайными числами от - 20 до 20. 2) Найдите сумму чётных элементов массива целых чисел. Размерность массива 20.
Ответы (1)
Помогите решить задачи на паскаль. 1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение всех элементов массива. 2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Ответы (1)
Паскаль! Дан массив А размерностью N. Записать в каждый элемент массива В следующие значения: 1 ый элемент - сумма всех нечетных элементов массива А; 2 ои элемент - сумма всех четных элементов массива А: Зий элемент - сумма всех элементов массива А
Ответы (1)