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

1)
const
n=10;
var
a: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)
var
a: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)
var
a: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.