1.     
Написать программу для нахождения числа нечетных
элементов в массиве из 10 беззнаковых чисел.
2.      Написать
программу для нахождения числа отрицательных элементов в массиве из 10 знаковых
чисел.
3.      Написать программу для замены всех   четных элементов массива из 10 беззнаковых чисел единицами
4.      Написать программу для замены всех   нулевых элементов массива из 10 знаковых чисел единицами.
5.      Написать программу для замены всех   троек в массиве из 10 беззнаковых чисел пятерками. 

да вы охренели, я поменяю вопросы

Это что было?

program ex1;const  n = 10;var  a: array[1..n] of integer;  kOdd, e, i: integer;begin  Randomize;  kOdd := 0;  write('Исходный массив ');  for i := 1 to n do  begin    e := Random(20) + 1;    a[i] := e;    if (e mod 2) <> 0 then kOdd := kOdd + 1;    write(e:3)  end;  writeln;  writeln('Количество нечетных элементов - ', kOdd)end.Тестовое решение:Исходный массив   9  2  1 18 17 16 11 15 15 13Количество нечетных элементов - 7program ex2;const  n = 10;var  a: array[1..n] of integer;  kNeg, e, i: integer;begin  Randomize;  kNeg := 0;  write('Исходный массив ');  for i := 1 to n do  begin    e := Random(21) - 10;    a[i] := e;    if e < 0 then kNeg := kNeg + 1;    write(e:4)  end;  writeln;  writeln('Количество отрицательных элементов - ', kNeg);end.Тестовое решение:Исходный массив   -9  -1  -7  -4   8  -4   1  -1  -7   0Количество отрицательных элементов - 7program ex3;const  n = 10;var  a: array[1..n] of integer;  e, i: integer;begin  Randomize;  write('Исходный массив ');  for i := 1 to n do  begin    a[i] := Random(20);    write(a[i]:4)  end;  writeln;  write('Результирующий массив ');  for i := 1 to n do  begin    if a[i] mod 2 = 0 then a[i] := 1;    write(a[i]:4)  end;  writeln;end.Тестовое решение:Исходный массив    3  16   4   1  13   0  14  14  10  18Результирующий массив    3   1   1   1  13   1   1   1   1   1program ex4;const  n = 10;var  a: array[1..n] of integer;  e, i: integer;begin  Randomize;  write('Исходный массив ');  for i := 1 to n do  begin    a[i] := Random(11) + -5;    write(a[i]:4)  end;  writeln;  write('Результирующий массив ');  for i := 1 to n do  begin    if a[i] = 0 then a[i] := 1;    write(a[i]:4)  end;  writeln;end.Тестовое решение:Исходный массив    4  -5   0  -2  -4  -5  -2   0  -1  -5Результирующий массив    4  -5   1  -2  -4  -5  -2   1  -1  -5program ex5;const  n = 10;var  a: array[1..n] of integer;  e, i: integer;begin  Randomize;  write('Исходный массив ');  for i := 1 to n do  begin    a[i] := Random(10) + 1;    write(a[i]:3)  end;  writeln;  write('Результирующий массив ');  for i := 1 to n do  begin    if a[i] = 3 then a[i] := 5;    write(a[i]:3)  end;  writeln;end.Тестовое решение:Исходный массив   8  9  6 10 10  7  1  3  1  3Результирующий массив   8  9  6 10 10  7  1  5  1  5

Mov ax, 8mov bx, 7mov cx, 56loop m2:jmz llconst as, bl, mzll:m23:jjk ax, 0const w, fconf dw, 8conf df, wmassiv kkk 1/1, 2/2, 4/4.