Sub Rab() Dim A(10, 10) X0 = 6 h = 0.25 Max = -1000 x = X0 For i = 1 To 10 For k = 1 To 10 A(i, k) = Cos(x ^ 0.25 - 0.5 * x ^ 0.5 + 0.25 * x ^ 0.75) If Max < A(i, k) Then Max = A(i, k) im = i km = k End If x = x + h Next k Next i ' Вывод матрицы For i = 1 To 10 For k = 1 To 10 Cells(i, k) = Int((0.0005 + A(i, k)) * 1000) / 1000 'Округление А до 3 знака Next k Next i ' вывод обрезаной матрицы For i = 1 To 10 For k = 1 To 10 If i = im Then Else If k = km Then Else Cells(i + 12, k) = Int((0.0005 + A(i, k)) * 1000) / 1000 End If End If Next k Next i End Sub
1.program z; var a:array [1..10] of integer; i,t:integer; s:real; begin for i:=1 to 10 do begin a[i]:=random(1,100); write(a[i]:4); if (odd(i)) and (odd(a[i])) then begin s:=s+a[i]; t:=t+1; end; end; writeln; write('Cреднее арифметическое = ',s/t); end. 2.program z; var a:array[1..10] of integer; max,i:integer; begin writeln('Исходный массив'); for i:=1 to 10 do begin a[i]:=random(1,100); write(a[i]:4); if a[i]>max then max:=a[i]; end; writeln; writeln('Измененный массив'); for i:=1 to 10 do begin if not(odd(a[i])) then a[i]:=max; write(a[i]:4); end; end.
Есть множество вариантов
Повреждён зарядник (проверь другой зарядник)
Повреждено гнездо(проверь на другом ноуте)
Повреждена розетка(проверь через другую розетку)
Некоректно работает система отображения уровня заряда(выключи ноутбук и проверь через пару часов)