дано n вещественных чисел. вычислить разность между максимальным и минимальным из них

[lena.h]

уважаемые програмисты помогите пожалуйста!!!
нужно сделать программу в Visual basic
в школе мы токое не проходили а в институте ни кто не чего не обхъяснил дали задание и сказали кто не сделает до экзамена не допустят
а я вобще первый раз вижу эту программу разобралась маленько как к примеру площадь прямоугольника найти по двум данным старанам. ну это даже незнаю с чего начать.

[Dophin]

что такое "вещественное число"?

[lena.h]

Множество вещественных чисел имеет стандартное обозначение — R
вот что я только про это знаю, здесь был такой вопрос только програму составляли в паскале вот такой код был там
#include<iostream.h>
#include<conio.h>
#include<math.h>

float FindMaxAndMin(float* Mas, int m)
{
float Max,Min,Answer;
Max=Mas[0];
Min=Mas[0];
for (int i=0; i<m; i++)
{
if (Mas[i]>Max)
Max=Mas[i];
if (Mas[i]<Min)
Min=Mas[i];
}
Answer=Max-Min;
cout<<"Разность между значениями max и min равно "<<Answer;
getch();
return 0;
}

int main()
{
float Max,Min;
float Mas[200];
int m;

do
{
cout<<"Введите число элементов массива ";
cin>>m;
if (m<2 && m>200)
cout<<"Ошибка! Введен недопустимый размер массива";
}
while (m<2 && m>200);
for (int i=0; i<m; i++)
{
cout<<"Введите элемент "<<i<<": ";
cin>>Mas[i];
}
cout<<endl;
FindMaxAndMin(Mas,m);
}

[IgorGO]

2 Dophin
Вещественные числа (они же действительные) - это математическаая абстракция, используется для того чтобы измерить непрерывные величины. к ним относятся, например: Пи, корень из 2. множество вещественных чисел включает в себя множество рациональных чисел.

Внимание! сейчас информация, которая может разрушить мозг: между любыми двумя вещественными числами, расположенными бесконечно близко друг к другу находится бесконечное множество вещественных чисел.
Осознать это способен только Чак Норис, общеизвестно, что это единственный человек, который смог досчитать до бесконечности (2 раза).

сказали кто не сделает до экзамена не допустят

Лена, у вас очень гуманный институт! В некоторых тех, кто это не сделал - отстреливают...

[doober]

Осознать это способен только Чак Норис, общеизвестно, что это единственный человек, который смог досчитать до бесконечности (2 раза).

Не совсем согласен.На втором разе счета Чак прошел на данный момент чуть больше половины интервала счета

[lena.h]

вот код
всё работает может кому пригодиться

Sub asdf()

Dim n, i As Long
Dim all As String
Dim max, min, s As Double
n = InputBox("N=")
min = n * 100
For i = 1 To n
s = InputBox(Str(i) + "èç " + Str(n), "введите N")
If s > max Then max = s
If s < min Then min = s
all = all + Str(s) + ";"
Next i
MsgBox ("ваши числа" & all & Chr(13) & "min = " & min & Chr(13) & "max= " & max & Chr(13) & "разность " & (max - min))

End Sub

[IgorGO]

Sub MinMax()
  mi = Cells(1, 1)
  ma = mi
  For r = 1 To 10
    If Cells(r, 1) < mi Then mi = Cells(r, 1)
    If Cells(r, 1) > ma Then ma = Cells(r, 1)
  Next
  Cells(1, 2) = mi: Cells(1, 3) = "'= min"    'вывод минимального значения
  Cells(2, 2) = ma: Cells(2, 3) = "'= max"  'вывод максимального значения 
End Sub

В данном примере предполагается, что сами данные расположены в первом столбце, с 1 по 10 ячеку (т.е. их 10 шт.).

[lena.h]

спасибо большое

[Dophin]

а где ж в коде N ?)

[IgorGO]

это не готовый код, а заготовка.
роль числа N в данном коде выполняет число 10