1.Что ты узнал о типе данных? Напиши определение. 2. Напиши алгоритм (или код программы) составления последовательности цифр 1258 из целых чисел 12 и 58.
3. Для чего предназначена команда float(input())? и лучший ответ​

1)var h: array[1..8]of integer;             i: integer; begin   write('massiv');   for i: =1 to 8 do   read(h[i]);   writeln;   write('elementi s otric znach');   for i: =1 to 8 do   if h[i]< 0 then write(h[i],' '); end.2)var h: array[1..10]of integer;           i,k: integer; begin   write('massiv: ');   for i: =1 to 10 do   begin     h[i]: =random(21)-10;     write(h[i],' ');   end;   writeln;   for i: =1 to 10 do   if h[i]< 0 then k: =k+1;   write('kol-vo elem s otric znach: ',k); end.3)var h: array[1..10]of integer;               i,k,p: integer; begin  write('massiv: ');   for i: =1 to 10 do  begin    h[i]: =random(10)+1;     write(h[i],' ');   end;   writeln;   p: =1;   for i: =1 to 10 do  if h[i] mod 2=1 then    begin    k: =k+1;     p: =p*h[i];     end;   write('kol-vo elem s nechet znach: ',k,' proizvedenie: ',p); end.5)var h: array[1..20]of integer;           i,k,s: integer;           a: real; begin   write('massiv: ');   for i: =1 to 10 do   begin     h[i]: =random(20)+1;     write(h[i],' ');   end;   writeln;   for i: =1 to 10 do   if (h[i] mod 3=0)and(i mod 2=0) then     begin     k: =k+1;     s: =s+h[i];     end;   a: =s/k;   write('srednee arifmet: ',a); end.