Ккаким типам данных относятся следующие значения: 1) 54.06 2) “abc” 3) ложь 4) -1.3 5) “123” 6) 15/06/96 ?

1) вещественный 2) 3) логический 4)  вещественный 5)  6) дата

Const     n = 13; var     a: array[1..n] of integer;     i,min: integer; begin randomize; min: =1; for i: = 1 to n do       begin       a[i]: =random(2*n+1)-n;       write(a[i],' ');       if a[min]> a[i] then min: =i;       end; writeln; writeln(min) end. const     n = 13; var     a: array[1..n] of integer;     i,j,min,b: integer; begin randomize; for i: = 1 to n do       begin       a[i]: =random(2*n+1)-n;       write(a[i],' ');       end; writeln; writeln; for i: = 1 to n do       begin       min: =i;       for j: =i+1 to n do               if a[min]> a[j] then min: =j;       b: =a[min];       a[min]: =a[i];       a[i]: =b;       write(a[i],' ')       end; end. const     n = 13; var     a: array[1..n] of integer;     i,j,max,b: integer; begin randomize; for i: = 1 to n do       begin       a[i]: =random(2*n+1)-n;       write(a[i],' ');       end; writeln; writeln; for i: = 1 to n do       begin       max: =i;       for j: =i+1 to n do               if a[max]< a[j] then max: =j;       b: =a[max];       a[max]: =a[i];       a[i]: =b;       write(a[i],' ')       end; end.

1) var  a, b: array[1..25] of integer;       i, x: integer;       begin      writeln('введите элементы массива a: ');       for i : = 1 to 25 do  begin        read(a[i]);           if a[i] mod 3 = 0 then        begin          x : = x + 1;           b[x] : = a[i];         end;       end;       write('элементы массива a, кратные трём: ');       for i : = 1 to x do  begin        write(b[i], ' ');       end;     end. 2) var  a, b, c: array[1..10000] of integer;       i, n, x: integer;         begin      writeln('введите размеры обоих массивов: ');       read(n);       write('введите элементы массива a: ');       for i : = 1 to n do  begin        x : = x + 1;         read(a[i]);       end;       write('введите элементы массива b: ');       for i : = 1 to n do  begin        read(b[i]);       end;       write('элементы массива c: ');       for i : = 1 to x do  begin        c[i] : = a[i];         write(c[i], ' ');         c[i] : = b[i];         write(c[i], ' ');       end;     end.