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

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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1)  совокупность документов,связанных между собой взаимными ссылками в единый текст.2) раньше 256.3) 1 байт=1 символу. но сейчас возможны варианты где и по 2,3,4.4) это  таблица, где каждой букве алфавита,а также цифрам и специальным знакам, присвоен уникальный номер   unicode-8 5)твоя фамилия мне не известна. 6) это файл компьютера. в нём содержатся текстовые данные. 7) для создания, редактирования и оформления текста. 8) название, количество символов и размер файла. 9)  10)   печатание текста, форматирование, выравнивание, автозамена, увеличение или уменьшение шрифта, копировать/вырезать/вставить, заменить, орфография.11) по сути их 2. 1-это антиква(serif) и 2-это (san-serif).12) если по простому. это полное удаление всего. например всех файлов на диске или флешки.  13)  кусок текста. например, абзац, несколько предложений, слов. 14)  это изменение информации.15) размер шрифта. например 12pt или 16pt.

// pascalabc.net 3.3, сборка 1633 от 10.02.2018 // внимание! если программа не работает, обновите версию! №1 begin   var x: =readreal('x=');   var y: =sqr((1-x*x+5*sqr(x*;   writeln('y=',y) end. пример x= 4.12 y=2029704.2032886 2a.   begin   var x: =readreal('x=');   var t1: =x*x; // x^2   var t2: =t1*t1; // x^4   t2: =t2*t2; // x^8   t1: =t2*t1; // x^10   writeln('x^10=',t1) end. 2b. begin   var x: =readreal('x=');   var t: =x*x; // x^2   t: =t*t; // x^4   t: =t*t; // x^8   t: =t*t; // x^16   t: =t/x; // x^15   writeln('x^15=',t) end.