10, 25, 40, 41 определить основание классификации

здесь идёт чередование чётных чисел с нечётными

Const   n = 20; var   t: array[1..n] of integer;   i, k: integer; begin   randomize;   writeln('элементы массива');   k : = 0;   for i : = 1 to n do   begin       t[i] : = random(11)-5;       write(t[i]: 3);       if ((i mod 2)< > 0) and (t[i]=0) then inc(k);   end;   writeln;   writeln('количество нулевых элементов на нечетных местах равно ',k); end. тестовое решение: элементы массива   2  5 -4  4  3 -2  5 -5 -1 -2  5  2  0 -5 -5 -4 -3  3  0  1 количество нулевых элементов на нечетных местах равно 2 const   n = 18; var   t: array[1..n] of integer;   i: integer; begin   randomize;   writeln('элементы массива');   for i : = 1 to n do   begin       t[i] : = random(51)-25;       write(t[i]: 4);   end;   writeln;   writeln('результат');   for i : = 1 to n do   begin       if ((i mod 2)< > 0) then t[i] : = 0;       write(t[i]: 4);   end;   writeln; end. тестовое решение: элементы массива   23  -6    8  14  15  12 -24  20 -11  -7    4 -24  22 -19  12  -6  21  17 результат     0  -6    0  14    0  12    0  20    0  -7    0 -24    0 -19    0  -6    0  17

Program zwezda; uses crt; var s: string;         i, len: integer ; begin clrscr;   write('ввод строки: '); readln(s);   clrscr;   writeln ('‘строка:   ', s);   writeln;   writeln ('первый символ: ', s[1]);   writeln;   len: =length(s);   writeln('посдедний символ: ',s[len]);   writeln;   for i: =2 to len -1 do         s[i]: ='*';   writeln('результат:   ',s);   readln; end.