Заполнить массив из 10 элементов случайными числами в интервале [10, 200] и найти сумму элементов массива, у которых вторая с конца цифра-четная.

vara:array [1..10] of integer;i,k,s:integer;beginrandomize;writeln('Массив:');for i:=1 to 10 dobegina[i]:=random(191)+10;write(a[i],' ');end;writeln;for i:=1 to 10 dobeginif (a[i]<100)and(((a[i] div 10)mod 2)=0) then s:=s+a[i] elseif (((a[i] div 10)mod 10) mod 2) = 0 then s:=s+a[i];end;writeln('Сумма элементов у которых вторая с конца цифра четная:',s);end.