А) 30<span>0.5
б) </span>42322.125<span>
в) </span>10110110<span>0.1</span>
// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
begin
var n:=ReadInteger('Число элементов массива');
var a:=ArrRandom(n,-60,140); a.Println(', ');
WritelnFormat('max={0}, min={1}',a.Max,a.Min)
end.
<u><em>Тестовое решение:</em></u>
Число элементов массива 10
-26, 134, 124, 103, 25, 31, 41, -31, 57, 46
max=134, min=-31
Программа приложена файлом для Visual Basic for Applications
Ниже текст этой программы продублирован
Sub trans_sequence(ByVal M)'заполнение массива и создание преобразованной последовательности чисел N = M Dim mas() ReDim mas(M) Sg = "" Sf = "" Randomize For i = 1 To M mas(i) = Round((Rnd(100) - 0.5) * 100) Sg = Sg + Str(mas(i)) If (mas(i) < 0) Then mas(i) = mas(i) * mas(i) Sf = Sf + Str(mas(i)) If i <> M Then Sg = Sg + "," Sf = Sf + "," End If Next i MsgBox "последовательность чисел " + Sg + Chr(10) + "преобразованная последовательность " + SfEnd Sub
Sub test() trans_sequence (25)End Sub
1010 1001 (это дополнительный код)