Решить по информатике у чебурашки есть игрушки. цвет игрушки автомобиль красный зелёный медвежонок красный зелёный синий жёлтый мяч синий жёлтый красный он хочет выбрать из этих игрушек один автомобиль.."если исходный автомобиль зелёного цвета
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.
