Пользователь вводит 10 чисел. определить, сколько из них являются одновременно четными и положительными. ( авс паскаль )

Var a,i,k: integer; begin k: =0; for i = 1 to 10 do begin readln (a); if (a> 0) and ((a mod 2)=0) then k: =k+1; end; writeln (k); end. кажется так

Vb у меня нет, поэтому на своей форме пропишите для любой кнопки код процедуры а вторую процедуру разместите в любом доступном модуле, хоть в той  же форме. не знаю, как вы планируете вводить текст, я его просто присвоил в программе для контрольного прогона. sub aaaa()       dim s as stringr       s = "this is the greatest test string and all k/g characters need to be killed"       deletechar s, "g"       deletechar s, "k"       msgbox s end sub sub deletechar(byref s as string, c as string)       'удаляем из строки s символ c       dim k as integer       do               k = instr(s, c)               if k > 0 then s = left(s, k - 1) + right(s, len(s) - k)       loop while k > 0 end sub тестовое решение: this is the reatest test strin and all / characters need to be illed

"четный элемент" был понят, как элемент массива, имеющий четный порядковый номер при счете от единицы. const   n=13; var   a: array[1..n] of integer;   i,imin: integer; begin   { инициализация }   randomize;   writeln('элементы массива');   for i : = 1 to n do   begin       a[i]: =random(50);       write(a[i]: 3)   end;   writeln;   { поиск минимума }   i: =4; imin: =2;   while i< =n do begin       if a[imin]> a[i] then imin: =i;       i: =i+2   end;   writeln('минимальный элемент с четным номером ',imin,' равен ',a[imin]); end. тестовое решение: элементы массива   30 23  5 19 36 10 10 37 42  4 23 37 34 минимальный элемент с четным номером 10 равен 4