uses crt; var a, b, c, i, j, n:integer; s, k :array [1..10000] of integer; begin clrscr; writeln ('Введите размер массива > 4.'); read (n); for i:=1 to n do begin writeln ('Введите ', i, ' элемент.'); read (s[i]); end; for i:=1 to n do for j:=1 to n-1 do while s[i]=s[j] do begin j:=j+1; inc (k[i]); end; a:=k[1]; for i:=1 to n do if a<k[i] then a:=k[i]; if k[i]=0 then k[i]:=1; writeln ('Наибольшая длина равных элементов идущих последовательно равна ', k[i], '.'); for i:=1 to n-5 do if (s[i+4]-s[i+3]=1) and (s[i+3]-s[i+2]=1) and (s[i+2]-s[i+1]=1) and (s[i+1]-s[i]=1) then inc (b); if b=0 then writeln ('Нет 5 последовательны чисел.') else writeln ('Есть 5 последовательных чисел и это количество равно ', b); end.
Randomize() Dim k As Integer Dim i As Integer i = Rnd() * 100 + 1 ReDim A(i) For k = 0 To i A(k) = Rnd() * -1000 + 500 Next
Dim intA, intB As Integer intA = InputBox("Введите начало интервала") intB = InputBox("Введите конец интервала") Dim R, Q, S As Integer R = 0 For i = 1 To UBound(A) If A(i) < A(R) Then R = i If A(i) Mod 2 <> 0 Then Q = Q + A(i) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 If A(i) > intA And A(i) < intB Then S = S + 1 Next
var a, b, c, i, j, n:integer;
s, k :array [1..10000] of integer;
begin
clrscr;
writeln ('Введите размер массива > 4.');
read (n);
for i:=1 to n do
begin
writeln ('Введите ', i, ' элемент.');
read (s[i]);
end;
for i:=1 to n do
for j:=1 to n-1 do
while s[i]=s[j] do
begin
j:=j+1;
inc (k[i]);
end;
a:=k[1];
for i:=1 to n do
if a<k[i] then
a:=k[i];
if k[i]=0 then k[i]:=1;
writeln ('Наибольшая длина равных элементов идущих последовательно равна ', k[i], '.');
for i:=1 to n-5 do
if (s[i+4]-s[i+3]=1) and (s[i+3]-s[i+2]=1) and (s[i+2]-s[i+1]=1) and (s[i+1]-s[i]=1) then inc (b);
if b=0 then writeln ('Нет 5 последовательны чисел.') else writeln ('Есть 5 последовательных чисел и это количество равно ', b);
end.
P.S. Надеюсь на благодарность и лучший ответ.
Dim A() As Integer
Randomize()
Dim k As Integer
Dim i As Integer
i = Rnd() * 100 + 1
ReDim A(i)
For k = 0 To i
A(k) = Rnd() * -1000 + 500
Next
Dim intA, intB As Integer
intA = InputBox("Введите начало интервала")
intB = InputBox("Введите конец интервала")
Dim R, Q, S As Integer
R = 0
For i = 1 To UBound(A)
If A(i) < A(R) Then R = i
If A(i) Mod 2 <> 0 Then Q = Q + A(i)
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
If A(i) > intA And A(i) < intB Then S = S + 1
Next
MsgBox("T=R/Q+1+S = " & A(R) / Q + 1 + S)