Программа находится в фотографии
Var a: array[1..10] of integer; sum, i: integer;beginsum:=0;for i:=1 to 10 do begin readln(a[i]); if a[i] mod 2=0 then sum:= sum+a[i]; end;write(sum);end.
program line_4;
uses crt;
var
kb, b: longint;
mb: real;
begin
clrscr;
write(‘kb (килобайт) = ‘); readln(kb);
b:=kb*1024*8;
mb:=kb/1024;
writeln(kb,‘ килобайт = ‘, b, ‘ бит = ‘, mb:6:4, ‘ мб’);
readkey;
end.
В начале считаем сумму, переведя числа в десятеричную:
2+8+16=26
26 в двоичной это 11010.
Ответ: 11010.