(pascal) : дан массив из 8 элементов, с датчика случайных чисел посчитать количество нечётных элементов.

Program enot; var a: array [1..8] of integer;   i,k: integer; begin k: =0; for i: = 1 to 8 do begin  a[i]: = random(1000);   if a[i] mod 2 < > 0 then k: =k+1;   end;   write(k);   end.

Хоть  кто-то  на  приличном  языке  пишет  (учится).  так  держать,  паскаль-старье. #include < iostream> #include < climits> using namespace std; int main() {   const int s=16; //число элементов+1 long long a[s],zero=0,pluss=llong_max; setlocale(lc_all,"rus"); for(int i=1; i< =s; i++) { cout< < endl< < "введите элемент массива №"< < i< < ": "; cin> > a[i]; } for(int i=1; i< =s; i++) { if (a[i]==0) zero++; if ((a[i]> 0)& (a[i]< pluss)) pluss=a[i]; } cout< < endl< < "наименьший положительный элемент: "< < pluss; cout< < endl< < "количество нулей: "< < zero; return 0; }

    '     1)напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b пользователем).           dim a as integer dim b as integer    dim i as integer      a = inputbox("введите а")  b = inputbox("введите b")     dim msg as string        msg = ""          for i = a to b              msg = msg  &     3 в степени " & i & " равно " & 3 ^ i & vbcrlf        next      msgbox(msg) 2)найти все делители числа 1204.     dim i as integer        dim msg as string    msg = ""        for i = 1 to 1204              if 1204 mod i = 0 then                          msg = msg & "число " & i & " является делителем 1204." & vbcrlf                    end if      next     msgbox(msg)