Const n=кол-во элементов
var x:array[1..n] of integer;
i,s:integer;
begin
for i:=1 to n do
x[i]:=1+random(9); //заполняем массив числами от 1 до 9
for i:=1 to n do
s:=s+x[i];
writeln(s);
readln;
end.
Visual BasicВыделить код
Option Explicit
Function Min_3(a As Variant, b As Variant, c As Variant) As Variant
Min_3 = a
If a > b Then Min_3 = b
If Min_3 > c Then Min_3 = c
End Function
Private Sub Form_Activate()
Dim a As Integer, b As Integer, c As Integer
a = Val(InputBox("Введите число"))
b = Val(InputBox("Введите число"))
c = Val(InputBox("Введите число"))
Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)
End Sub
Конечно же ответ 2. Система самодиагностики и сбора статистики
Для того, чтобы перевести число из десятичной сс, надо делить на основание другой сс (в данном случае 5). И в ответе писать остатки от деления, которые получаются (как показано на фото). Ответ: 2332.