Массивы ! напишите программы (сама в паскале не разбираюсь) : 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.