Нужно умножить стороны треугольника
Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('max = ',max);
for i:=1 to n do
if a[i]=max then write(i:3);
writeln;
end.
Пример:
Исходный массив:
-6 -9 10 -6 0 0 -8 10 -8 2
max = 10
3 8
Sub z()
n = CInt(InputBox("N?"))
k = 1
s = 0
For i = 1 To n
k = k * i
s = s + k
Next
MsgBox (s)
End Sub
C1: ГВЖЕДБА
C2: тут не совсем понятно записано это числа такие <span>6610, 6910 или эти последние 10ки означают что число 66 в десятичной и 69 в десятичной? если это так, то подходит только 3 вариант, т.к.
</span>1000011₂=67₁₀ => A=66, B=69, C=67, т.е. A<C<B