сгенерировать 100 случайных чисел в диапозоне от 10 до 20, вычеслить сумму четных чисел

ой, паскаль

фуфуфуфуфуфу

фуфу

лучше б не писал

глаза режет

program p1;const n=100;var a:array[1..100]of integer;i,s:integer;beginrandomize;for i:=1 to n dobegina[i]:=random(10,20);end;for i:=1 to n dobeginif a[i] mod 2=0 then s:=s+a[i];end;Writeln('Сумма чётных чисел = ',s);end.