1. Информатика
  2. Найти сумму четных элементов

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

МаркРешетов МаркРешетов    2   21.05.2019 18:00    6

Ответы
agnesaudal agnesaudal  01.10.2020 04:36

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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
cabinamaksarov cabinamaksarov  18.10.2020 12:16
ВАС ‼️ Приведены запросы к поисковому серверу. Для каждого запроса указан его код –соответствующая буква от А до Г. Запишите коды запросов слева направо в порядкевозрастания...
solov1 solov1  18.10.2020 13:00
Неблагоприятные последствия использования компьютера для человеческого организма Покажите избежать этого и приведите аргументированный пример. Объяснить, почему. Напишите...
esaloverzhan esaloverzhan  18.10.2020 12:10
Дан текст из 700 символов известно что символы берутся из таблицы размером 8 x 16 Определите информационный объем текста в битах​...
Str1x0 Str1x0  18.10.2020 13:00
Қайының айырмашылығы барма...
algebraigeometria1 algebraigeometria1  17.08.2019 08:50
Вычислите |x|+x^5, если x=−2. , составьте программу в паскале с блок-схемой надо...
Olia234566 Olia234566  17.08.2019 08:50
1.верхний колонтитул — это области в нижнем поле страницы документа ms word. 1) да; 2) нет. 2. подложки — это текст или рисунки, которые отображаются за текстом документа...
ударник4г ударник4г  17.08.2019 08:50
Массив из 10 элементов заполняется генератором случайных чисел в диапазоне от 1 до 10.найти среднее арифметическое только четных элементов....
alenushka73 alenushka73  17.08.2019 08:50
Ms word позволяет создавать доклады в виде презентаций. 1) да; 2) нет...
olmilevskaya1 olmilevskaya1  10.06.2019 20:10
получения информации о файлах и папках...
maririz405 maririz405  22.07.2019 20:10
Какое число будет выведено на экран компьютера в результате выполнения фрагмента программы? a: =10 ; b: =20 ; if (b+2 =a*2) and (a*2=b) then begin a: =b+a; b: =a-b;...

Популярные вопросы