Составьте программу дан массив чисел. определить количество элементов, находящихся в интервале от 1 до 12 и расположенных до максимального элемента массива.

var

a: array[1..10000000] of integer;

i, n, ans: integer;

begin

ans : = 0;

read(n);

for i : = 1 to n do

begin  

read(a[i]);

if i = n then break;

if ((a[i] > 1) and (a[i] < 12)) then ans : = ans + 1;

end;

write(ans);

end.

'1. сформировать одномерный массив из восьми вещественных значений. dim m(8) as single, i as integer, s as string for i = 1 to 8 m(i) = rnd * 20 - 10 s = s + cstr(m(i)) + " " next msgbox s '2. сформировать двумерный массив из а строк и в столбцов. dim m() as single, i as integer, j as integer, a as integer, b as integer, s as string a = 3 b = 5 redim m(a, b) for i = 1 to a for j = 1 to b m(i, j) = rnd * 20 + 2 s = s + cstr(m(i, j)) + "   " next s = s + vbcrlf next msgbox s '3. составить программу для определения максимального и минимального элементов двумерного массива. dim m() as single, i as integer, j as integer, a as integer, b as integer, s as string dim min as single, max as single a = 3: b = 5 min = 100: max = 0 redim m(a, b) for i = 1 to a for j = 1 to b m(i, j) = rnd * 20 + 2 s = s + cstr(m(i, j)) + "   " if max < m(i, j) then max = m(i, j) if min > m(i, j) then min = m(i, j) next s = s + vbcrlf next s = s + "max = " & max & vbcrlf s = s + "min = " & min & vbcrlf msgbox s '4. сформировать одномерный массив из 10 целых элементов. найти сумму положительных и четных элементов массива. dim m(10) as integer, i as integer, sum as integer, s as string, s1 as string for i = 1 to 10 m(i) = rnd * 20 - 10 s = s + cstr(m(i)) + " " if (m(i) > 0) and (m(i) mod 2 = 0) then s1 = s1 + cstr(m(i)) + " ": sum = sum + m(i) next s = s + vbcrlf s = s + s1 + vbcrlf s = s + "sum = " & sum msgbox s

Function isprime(n: integer): boolean; var   p: integer;   found: boolean; begin   found: = (n mod 2 = 0);   p: =3;   while (not found) and (sqr(p)< =n) do       begin       found: =(n mod p = 0);       p: =p+2       end;   isprime: =(not found) or (p = 2) end; const   n = 12; var   a: array[1..n,1..n] of integer;   i,j,s,k: integer; begin   randomize;   writeln('исходный массив');   for i: =1 to n do   begin       for j: =1 to n do       begin           a[i,j]: =random(99)+1; { интервал [1..99] }           write(a[i,j]: 3)       end;       writeln   end;   { решаем }   s: =0;   for i: =1 to n do   begin       k: =a[i,i];       if isprime(k) then a[i,i]: =s;       s: =s+a[i,i]   end;   { выводим }   writeln('результирующий массив');   for i: =1 to n do   begin       for j: =1 to n do write(a[i,j]: 5);       writeln   end end. тестовое решение: исходный массив   55 99 73  7 53 15 30 67 59 59 56 30   81  6 39 10 10 11 60 74 74 48 78 75   24 40 34 44 31 95 75 52 47 66 58 24   87 99 86 92 41 76 44  4 31 57 34 13   31 48 84 80 39 61 86  7 21 97 83 14   80 85 37 63 84  5 82 16 47 16 22 11   24 68 34 97  5 74 45 66  6 22 14 83   12 94 13 86 79 52  4 89 16 73 12 55   40 80 20 27 74 19 65 16 26 74 57 71   28 88  3 46 53 17  8 59 72 54 52 90   91 96 36 95 13 33 94 50 56 78 58 24   55 19 91 86 56 98 57 37 38 42 58 91 результирующий массив     55    99    73      7    53    15    30    67    59    59    56    30     81      6    39    10    10    11    60    74    74    48    78    75     24    40    34    44    31    95    75    52    47    66    58    24     87    99    86    92    41    76    44      4    31    57    34    13     31    48    84    80    39    61    86      7    21    97    83    14     80    85    37    63    84  226    82    16    47    16    22    11     24    68    34    97      5    74    45    66      6    22    14    83     12    94    13    86    79    52      4  497    16    73    12    55     40    80    20    27    74    19    65    16    26    74    57    71     28    88      3    46    53    17      8    59    72    54    52    90     91    96    36    95    13    33    94    50    56    78    58    24     55    19    91    86    56    98    57    37    38    42    58    91