Задать вопрос
19 марта, 15:53

Найти сумму четных элементов массива целых чисел. Размерность массива - 20. Заполнение массива осуществить случайными числами от 100 до 200

+5
Ответы (1)
  1. 19 марта, 16:06
    0
    var

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

    s, i:integer;

    begin

    randomize;

    for i:=1 to 20 do begin

    a[i]:=random (101) + 100;

    write (a[i],' ') ;

    end;

    writeln;

    s:=0;

    for i:=1 to 20 do

    if odd (a[i]) = false then s:=s+a[i];

    writeln (s) ;

    readln;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Найти сумму четных элементов массива целых чисел. Размерность массива - 20. Заполнение массива осуществить случайными числами от 100 до 200 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
1) Найти сумму отрицательных элементов массива целых чисел. Размерность массива 10. Заполнение массива осуществить случайными числами от - 20 до 20. 2) Найдите сумму чётных элементов массива целых чисел. Размерность массива 20.
Ответы (1)
Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива. Размерность массива-20. Заполнение массива осуществить случайными числами от 150 до 300
Ответы (1)
Умоляю помогите! найти произведение всех элементов массива вещественных чисел, меньших заданного числа. Размерность массива - 10. Заполнение массива осуществить случайными числами от 50 до 100
Ответы (1)
1. Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество. 2. Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50.
Ответы (1)
1. Количество единиц среди элементов массива. Заполнение массива произвести с клавиатуры. 2. Ко всем отрицательным элементам массива прибавить первый элемент. Заполнение массива произвести случайными целыми числами из [ - 6,6]
Ответы (1)