Cоставьте программу для вычисления t=r/q+1+s r-наименьший элемент массива; q-сумма нечетных элементов массива; s-количество элементов,лежащих в интервале(а,в)(а,в ввести). полученной значение элементов r,q,s,t ввыести на печать.
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: array[1..mm, 1..mm] of integer; i, j, m, s: integer;
begin Write('Введите число строк (столбцов) матрицы: '); Readln(m); Randomize; Writeln(#13#10, 'Исходная матрица'); for i := 1 to m do begin for j := 1 to m do begin a[i, j] := Random(99) + 1; { числа 1..99 } Write(a[i, j]:3) end; Writeln end; Writeln('*** Главная диагональ ***'); for i := 1 to m do Write(a[i, i]:3); Writeln; Writeln('*** Побочная диагональ ***'); for i := 1 to m do Write(a[i, m - i + 1]:3); Writeln; Write('Сумма четных элементов по периметру равна '); s := 0; for j := 1 to m do if a[1, j] mod 2 = 0 then s := s + a[1, j]; for j := 1 to m do if a[m, j] mod 2 = 0 then s := s + a[m, j]; for i := 2 to m-1 do if a[i, 1] mod 2 = 0 then s := s + a[i, 1]; for i := 2 to m-1 do if a[i, m] mod 2 = 0 then s := s + a[i, m]; Writeln(s) end.
procedure Shell(var a: Mas; n: integer); { сортировка методом Шелла } var i, j, step, t: integer;
begin step := n div 2; while step > 0 do begin for j := n - step downto 1 do begin i := j; while i <= n - step do begin if a[i] > a[i + step] then begin t := a[i]; a[i] := a[i + 1]; a[i + 1] := t end; i := i + step end end; step := step div 2 end end;
var x: Mas; i, n: integer;
begin Randomize; Write('Введите число элементов в массиве (1-100): '); Readln(n); Writeln('Исходный массив'); for i := 1 to n do begin x[i] := Random(101) - 50; Write(x[i]:4) end; Shell(x, n); Writeln(#13#10, 'Отсортированный массив'); for i := 1 to n do Write(x[i]:4) end.
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)