Создать динамический массив. Найти в нем максимальный элемент - VB

Формулировка задачи:

VB 6 Создать динамический массив. Найти в нем максимальный элемент

Это на C#

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
 
namespace ConsoleApplication3
{
class Program
{
static void Main(string[] args)
{
List<int> list = new List<int> { 1, 2, 3, 4, 10, 6, 7, 8, 10 };
for (int i = 0; i < 9; i++)
{
Console.Write("{0,3}", list[i]);
}
Console.WriteLine();
int maxValue = list.Max();
Console.Write("{0,2}", maxValue);
Console.ReadKey();
}
}
}

Решение задачи: «Создать динамический массив. Найти в нем максимальный элемент»

textual
                            Листинг программы 
                        

                            Sub Task
Dim X() As integer
     n%=Val(InputBox("Размер массива"))
     If n% > 0 then
        Redim X(1 to n%) As Integer
        Randomize
        For i%=1 to n%
             X(i%)=Rnd*100
        Next i%
        max%=X(1)
        For i%=2 to n%
             if X(i%) > max% then max%=X(i%)
        Next i%
        MsgBox "Максимальный элемент=" & Cstr(max%)
     End if 
End Sub
                        

Оцени полезность:

5 голосов , оценка 4.2 из 5

Похожие ответы