Помогите решить пожалуйста. линейные массивы.1.Замена.- переписать линейныймассив вещественных чисел b(30) в обратном порядке.
Помогите решить пожалуйста. линейные массивы.
1.Замена.- переписать линейныймассив вещественных чисел b(30) в обратном порядке.
Гость
Ответ(ы) на вопрос:
ГостьVisual Basic.NET
Imports System.Console
Module Module1
Sub Main()
Dim Rnd As Random = New Random()
Dim A(30) As Integer
Dim k As Integer
Dim i As Byte
For i = 0 To A.Length - 1
A(i) = i 'Rnd.Next(255)
WriteLine("A({0}) => {1}", i, A(i))
Next
WriteLine()
i = 0
For i = 0 To Math.Truncate(A.Length / 2)
k = A(i)
A(i) = A(A.Length - i - 1)
A(A.Length - i - 1) = k
Next
For k = 0 To A.Length - 1
WriteLine("A({0}) => {1}", k, A(k))
Next
ReadKey(False)
End Sub
End Module
Гостьvar
a: array [1..30] of integer;
i, k: integer;
begin
for i := 1 to 30 do
begin
a[i] := i;
writeln('a[', i, '] => ', a[i]);
end;
writeln();
for i := 1 to 15 do
begin
k := a[i];
A[i] := A[31 - i];
A[31 - i] := k;
end;
for i := 1 to 30 do
writeln('a[', i, '] => ', a[i]);
end.
Не нашли ответ?
Похожие вопросы