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

 

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

 

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

 

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

1) vara:array[1..20] of integer;n, i :integer;beginFor i := 1 to 20 dobegina[i]:=0;write(a[i],',');end;end.2) vara:array[1..20] of integer;n, i :integer;beginFor i := 1 to 20 dobegina[i] := random(41)-20;write(a[i],',');end;end.3) vara:array[1..200] of integer;n, i :integer;beginFor i := 1 to 200 dobegina[i]:=53;write(a[i],',');end;end.