Всё надо делать в паскале
1)Дан массив размерностью 10. Заполните массив целыми числами с клавиатуры через пробел и выведите его на экран.
2)Дан массив действительный чисел размерность n. Заполните массив с клавиатуры используя запрос каждого элемента массива. Вывести готовый массив на экран.
3)Заполните массив вещественными числами использую диапозон от 0 до 1 и выведите го на экран.

1)constn=10;vara:array[1..n]of integer;i:integer;begin    for i:=1 to n do         read(a[i]);writeln;   for i:=1 to n do         write(a[i]:4);end.2)vara:array[1..1000]of real;i,n:integer;begin writeln('n ?'); readln(n);    for i:=1 to n do       begin         writeln('INPUT ',i,' элемент');         readln(a[i]);       end;writeln;   for i:=1 to n do         write(a[i]:4:2);end.3)vara:array[1..1000]of real;i,n:integer;begin writeln('n ?'); readln(n);    for i:=1 to n do       begin         a[i]:=random;          write(a[i]:4:2);       end;writeln;end.