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

Question

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

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

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

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

Answer 1

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.