МАССИВЫ ! Напишите программы сама в Паскале не разбираюсь : 1 Заполнить массив нулями и вывести значение в строку. 2 Заполнить массив дробн

МАССИВЫ ! Напишите пожалуйста программы (сама в Паскале не разбираюсь) :

 

1) Заполнить массив нулями и вывести значение в строку.

 

2) Заполнить массив дробными и отрицательными значениями, используя случайные числа. Вывести элементы массива построчно.

 

3) Заполнить и вывести на экран одномерный массив, содержащий 200 одинаковых элементов. 

  • 1) var
    a:array[1..20] of integer;
    n, i :integer;
    begin
    For i := 1 to 20 do
    begin
    a[i]:=0;
    write(a[i],',');
    end;
    end.

    2) var
    a:array[1..20] of integer;
    n, i :integer;
    begin
    For i := 1 to 20 do
    begin
    a[i] := random(41)-20;
    write(a[i],',');
    end;
    end.

    3) var
    a:array[1..200] of integer;
    n, i :integer;
    begin
    For i := 1 to 200 do
    begin
    a[i]:=53;
    write(a[i],',');
    end;
    end.