Текстовый числовая звуковая графическая комбинированная
32=2^5; тоесть один символ равен 5 битам , поэтому 5*50=250 бит или 31,25 байт.
Sub abc()
Dim i As Integer, aMax As Integer, aMin As Integer, n As Integer
n = 15
ReDim a(1 To n) As Integer
For i = 1 To n
a(i) = InputBox("Введи A[" & Str(i) & " ] как целое")
Next i
aMax = a(1)
aMin = a(1)
For i = 2 To n
If a(i) > aMax Then aMax = a(i)
If a(i) < aMin Then aMin = a(i)
Next i
MsgBox "Сумма max+min =" & Str(aMax + aMin) & _
" их разность =" & Str(aMax - aMin)
End Sub
Program min;
var
a,b,c,Ymin:integer;
begin
writeln('Введите три числа : ');
readln(a,b,c);
if a>b then
Ymin:=b else Ymin:=a;
If b>c then
Ymin:=c else Ymin:=b;
If a>c then
Ymin:=c else Ymin:=a;
writeln('Наименьшее значение = ',Ymin);
readln;
<span>end.</span>