МАССИВЫ ! Напишите пожалуйста программы (сама в Паскале не разбираюсь) :
1) Заполнить массив нулями и вывести значение в строку.
2) Заполнить массив дробными и отрицательными значениями, используя случайные числа. Вывести элементы массива построчно.
3) Заполнить и вывести на экран одномерный массив, содержащий 200 одинаковых элементов.
More Questions From This User See All
Answers & Comments
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.