Всё надо делать в паскале 1)Дан массив размерностью 10. Заполните массив целыми числами с...

Question

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

Answer 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.