52(10), 101001(2)=41(10), 43(8)=35(10), 36(16)=30(10)
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
Узнавать новое
Общаться
Играть в игры
Загружать файлы
Var day:byte;
begin
randomize;
day:=random(24);
case day of
5..11:writeln('Доброго утра');
12..17:writeln('Доброго Дня');
18..22:writeln('Доброго Вечера');
23, 1..4:writeln('Доброй ночи');
end;
writeln(day);
<span> end. </span>
Сначала alt - возле пробела, потом f4