Предмет: Информатика, автор: МаргошаМ

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

Ответы

Автор ответа: Mishka28
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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Похожие вопросы
Предмет: Английский язык, автор: kevins98clen
Предмет: Русский язык, автор: bumkuper
Предмет: Литература, автор: ederli200723
Предмет: Информатика, автор: CherryBoom

5. В кодировке Unicode на каждый символ отводится 2 байта. Определите в этой кодировке информационный объём следующей пословицы:


Где родился, там и сгодился.

6. Информационное сообщение на русском языке, первоначально записанное в 8 - битном коде Windows, было перекодированно в 16 - битную кодировку Unicode. В результате информационный объём сообщения стал равен 2 Мбайта. Найдите кол - во символов в сообщении.


7. Средняя скорость передачи данных по некоторому каналу связи равна 29 Кбит/с. Сколько секунд потребуется для передачи по этому каналу 50 страниц текста, если считать, что один символ кодируется одним байтом и на каждой странице в среднем 96 символов?

8. Из имеющихся фрагментов текста "1999", "2012", "файл", "file", "2a3b" выберите тот, которому соответствует наименьшая сумма кодов символов в таблице ASCII.


10. Закодировать с помощью ASCII свою фамилию.

Моя фамилия - Зубарева. 

Прошу до 00:00 решить, буду очень благодарна Х)