МАССИВЫ ! Напишите пожалуйста программы (сама в Паскале не разбираюсь) : 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.
Не нашли ответ?
Похожие вопросы